Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftnr, only: getFFTF

type_of(data) :: fft(1 : getExpNext(size(data)))

fft(:) = getFFTF(data(:))

pm_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250

pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTF.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftnr, only: getFFTF, getFFTI

6 use pm_distUnif, only: getUnifRand

7 use pm_mathCompare, only: isClose

8 use pm_err, only: setAsserted

9

10 implicit none

11

12 integer(IK) :: i

13 integer(IK) :: lenData

14 type(display_type) :: disp

15 disp = display_type(file = "main.out.F90")

16

17 do i = 1, 5

18 block

19 use pm_kind, only: TKC => CKS

20 real(TKC) :: reltol

21 complex(TKC), allocatable :: data(:), atad(:)

22 call disp%show("lenData = getUnifRand(5, 100)")

23 lenData = getUnifRand(5, 100)

24 call disp%show("lenData")

25 call disp%show( lenData )

26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

28 call disp%show("data")

29 call disp%show( data )

30 call disp%skip()

31 call disp%show("atad = getFFTI(getFFTF(data))")

32 atad = getFFTI(getFFTF(data))

33 call disp%show("atad")

34 call disp%show( atad )

35 call disp%show("reltol = sqrt(epsilon(1._TKC))")

36 reltol = sqrt(epsilon(1._TKC))

37 call disp%show("reltol")

38 call disp%show( reltol )

39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

43 call disp%skip()

44 end block

45

46 block

47 use pm_kind, only: TKC => CKD

48 real(TKC) :: reltol

49 complex(TKC), allocatable :: data(:), atad(:)

50 call disp%show("lenData = getUnifRand(5, 100)")

51 lenData = getUnifRand(5, 100)

52 call disp%show("lenData")

53 call disp%show( lenData )

54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

56 call disp%show("data")

57 call disp%show( data )

58 call disp%skip()

59 call disp%show("atad = getFFTI(getFFTF(data))")

60 atad = getFFTI(getFFTF(data))

61 call disp%show("atad")

62 call disp%show( atad )

63 call disp%show("reltol = sqrt(epsilon(1._TKC))")

64 reltol = sqrt(epsilon(1._TKC))

65 call disp%show("reltol")

66 call disp%show( reltol )

67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

71 call disp%skip()

72 end block

73

74 block

75 use pm_kind, only: TKC => CKH

76 real(TKC) :: reltol

77 complex(TKC), allocatable :: data(:), atad(:)

78 call disp%show("lenData = getUnifRand(5, 100)")

79 lenData = getUnifRand(5, 100)

80 call disp%show("lenData")

81 call disp%show( lenData )

82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

84 call disp%show("data")

85 call disp%show( data )

86 call disp%skip()

87 call disp%show("atad = getFFTI(getFFTF(data))")

88 atad = getFFTI(getFFTF(data))

89 call disp%show("atad")

90 call disp%show( atad )

91 call disp%show("reltol = sqrt(epsilon(1._TKC))")

92 reltol = sqrt(epsilon(1._TKC))

93 call disp%show("reltol")

94 call disp%show( reltol )

95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

99 call disp%skip()

100 end block

101

102 block

103 use pm_kind, only: TKC => RKS

104 real(TKC) :: reltol

105 real(TKC), allocatable :: data(:), atad(:)

106 call disp%show("lenData = getUnifRand(5, 100)")

107 lenData = getUnifRand(5, 100)

108 call disp%show("lenData")

109 call disp%show( lenData )

110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

112 call disp%show("data")

113 call disp%show( data )

114 call disp%skip()

115 call disp%show("atad = getFFTI(getFFTF(data))")

116 atad = getFFTI(getFFTF(data))

117 call disp%show("atad")

118 call disp%show( atad )

119 call disp%show("reltol = sqrt(epsilon(1._TKC))")

120 reltol = sqrt(epsilon(1._TKC))

121 call disp%show("reltol")

122 call disp%show( reltol )

123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

127 call disp%skip()

128 end block

129

130 block

131 use pm_kind, only: TKC => RKD

132 real(TKC) :: reltol

133 real(TKC), allocatable :: data(:), atad(:)

134 call disp%show("lenData = getUnifRand(5, 100)")

135 lenData = getUnifRand(5, 100)

136 call disp%show("lenData")

137 call disp%show( lenData )

138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

140 call disp%show("data")

141 call disp%show( data )

142 call disp%skip()

143 call disp%show("atad = getFFTI(getFFTF(data))")

144 atad = getFFTI(getFFTF(data))

145 call disp%show("atad")

146 call disp%show( atad )

147 call disp%show("reltol = sqrt(epsilon(1._TKC))")

148 reltol = sqrt(epsilon(1._TKC))

149 call disp%show("reltol")

150 call disp%show( reltol )

151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

155 call disp%skip()

156 end block

157

158 block

159 use pm_kind, only: TKC => RKH

160 real(TKC) :: reltol

161 real(TKC), allocatable :: data(:), atad(:)

162 call disp%show("lenData = getUnifRand(5, 100)")

163 lenData = getUnifRand(5, 100)

164 call disp%show("lenData")

165 call disp%show( lenData )

166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

168 call disp%show("data")

169 call disp%show( data )

170 call disp%skip()

171 call disp%show("atad = getFFTI(getFFTF(data))")

172 atad = getFFTI(getFFTF(data))

173 call disp%show("atad")

174 call disp%show( atad )

175 call disp%show("reltol = sqrt(epsilon(1._TKC))")

176 reltol = sqrt(epsilon(1._TKC))

177 call disp%show("reltol")

178 call disp%show( reltol )

179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

183 call disp%skip()

184 end block

185 end do

186

187end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4112

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftnr::getFFTI
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11131

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11016

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+19

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.20418692, +0.547390103), (+1.36850142, +0.618728399), (+1.99830008, +0.213605762), (+1.34115565, +0.695446730), (+1.68167472, +0.709908485), (+1.41532254, +0.133194566), (+1.76198137, +0.409795225), (+1.10093784, +0.110865653), (+1.04576385, +0.291338086), (+1.16578710, +0.829753280E-1), (+1.16090059, +0.664416432), (+1.53313076, +0.851274550), (+1.48345816, +0.502475500), (+1.21602798, +0.803326905), (+1.89074731, +0.965506554), (+1.86521983, +0.767631292), (+1.33522117, +0.581143260), (+1.94342673, +0.669264197E-1), (+1.38034070, +0.387085199)

7

8atad = getFFTI(getFFTF(data))

9atad

10(+1.20418692, +0.547390223), (+1.36850142, +0.618728399), (+1.99830008, +0.213605821), (+1.34115553, +0.695446610), (+1.68167460, +0.709908485), (+1.41532230, +0.133194581), (+1.76198125, +0.409795344), (+1.10093784, +0.110865593), (+1.04576385, +0.291338116), (+1.16578710, +0.829752460E-1), (+1.16090059, +0.664416552), (+1.53313088, +0.851274490), (+1.48345804, +0.502475500), (+1.21602774, +0.803326786), (+1.89074707, +0.965506673), (+1.86521983, +0.767631173), (+1.33522129, +0.581143260), (+1.94342685, +0.669263005E-1), (+1.38034058, +0.387085199), (+0.238418579E-6, -0.894069672E-7), (+0.119209290E-6, -0.596046448E-7), (+0.298023224E-6, -0.104308128E-6), (+0.119209290E-6, -0.745058060E-7), (+0.119209290E-6, +0.558793545E-7), (+0.00000000, +0.00000000), (+0.119209290E-6, +0.223517418E-7), (+0.119209290E-6, -0.298023224E-7), (+0.00000000, -0.298023224E-7), (+0.178813934E-6, +0.298023224E-7), (+0.178813934E-6, +0.596046448E-7), (+0.298023224E-6, -0.298023224E-7), (+0.119209290E-6, -0.298023224E-7)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, atad(1:size(data)), reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+40

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.7276121517561811, +0.82977291435546996E-1), (+1.7623419511796374, +0.42164018751577848), (+1.2883641271275046, +0.47540868421280091), (+1.8907598091857900, +0.81344128925782921), (+1.7013489154518928, +0.72699524676502558), (+1.0240921049810736, +0.20007003192469563), (+1.8017949937302462, +0.87310543341254343), (+1.8049651475715722, +0.60614313714334933), (+1.3071840822237040, +0.57572916471518909), (+1.6789626284952410, +0.39326511301288047), (+1.3295670329443001, +0.70076288253171404), (+1.2583031904025339, +0.76126669282276072E-1), (+1.9860887306442008, +0.41127406712330039), (+1.8839386239212419, +0.35370190860368456), (+1.7031575391884042, +0.48165118409182228), (+1.0689873069429539, +0.17909901728833355), (+1.9412363368837895, +0.38709799126328881), (+1.9324443807095841, +0.12513714921466568), (+1.3094233522086824, +0.25607777758500305), (+1.9482607081348675, +0.46151669469933621), (+1.1925023158144090, +0.12757815819741580), (+1.7106480319298645, +0.70801855262231461), (+1.8326872780859658, +0.36518600525761269), (+1.0681886984652484, +0.77590840405213457), (+1.0518787624872676, +0.86569391497713366E-1), (+1.0500060266887767, +0.59803434927228716), (+1.5086761950311407, +0.31785897021576093), (+1.5500993665298612, +0.71083390763376197), (+1.3170984226034705, +0.12962592633228254), (+1.4662029251505229, +0.14391292711182746), (+1.7272882695420828, +0.10058623488404916), (+1.1954434877771516, +0.16797178072029795), (+1.4945641710352926, +0.60436233574075626), (+1.2368600600111237, +0.14424026797666079), (+1.8802022562185212, +0.86790308175722430), (+1.8585980429269968, +0.29987670196242577), (+1.0235213232574703, +0.69449990558007491), (+1.7522586583562774, +0.43173158295834324), (+1.5219308401783236, +0.75873618963379630E-1), (+1.3989604250328540, +0.23966278639680316)

24

25atad = getFFTI(getFFTF(data))

26atad

27(+1.7276121517561811, +0.82977291435546996E-1), (+1.7623419511796379, +0.42164018751577875), (+1.2883641271275041, +0.47540868421280130), (+1.8907598091857898, +0.81344128925782966), (+1.7013489154518928, +0.72699524676502592), (+1.0240921049810736, +0.20007003192469561), (+1.8017949937302458, +0.87310543341254343), (+1.8049651475715722, +0.60614313714334944), (+1.3071840822237042, +0.57572916471518920), (+1.6789626284952410, +0.39326511301288097), (+1.3295670329442997, +0.70076288253171404), (+1.2583031904025339, +0.76126669282276488E-1), (+1.9860887306442008, +0.41127406712330095), (+1.8839386239212415, +0.35370190860368489), (+1.7031575391884037, +0.48165118409182234), (+1.0689873069429536, +0.17909901728833394), (+1.9412363368837895, +0.38709799126328859), (+1.9324443807095846, +0.12513714921466554), (+1.3094233522086824, +0.25607777758500283), (+1.9482607081348675, +0.46151669469933609), (+1.1925023158144090, +0.12757815819741564), (+1.7106480319298645, +0.70801855262231439), (+1.8326872780859653, +0.36518600525761241), (+1.0681886984652489, +0.77590840405213413), (+1.0518787624872679, +0.86569391497713047E-1), (+1.0500060266887767, +0.59803434927228671), (+1.5086761950311403, +0.31785897021576071), (+1.5500993665298612, +0.71083390763376131), (+1.3170984226034705, +0.12962592633228209), (+1.4662029251505229, +0.14391292711182718), (+1.7272882695420821, +0.10058623488404868), (+1.1954434877771511, +0.16797178072029761), (+1.4945641710352926, +0.60436233574075626), (+1.2368600600111237, +0.14424026797666051), (+1.8802022562185212, +0.86790308175722375), (+1.8585980429269970, +0.29987670196242544), (+1.0235213232574703, +0.69449990558007479), (+1.7522586583562774, +0.43173158295834324), (+1.5219308401783236, +0.75873618963379352E-1), (+1.3989604250328538, +0.23966278639680258), (+0.0000000000000000, -0.16653345369377348E-15), (-0.33306690738754696E-15, -0.61062266354383610E-15), (+0.33306690738754696E-15, -0.27755575615628914E-15), (+0.77715611723760958E-15, -0.69388939039072284E-15), (+0.0000000000000000, -0.30531133177191805E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, -0.33306690738754696E-15), (-0.22204460492503131E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.83266726846886741E-16), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.19428902930940239E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.45796699765787707E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.74940054162198066E-15), (+0.22204460492503131E-15, +0.61062266354383610E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.90205620750793969E-15), (+0.44408920985006262E-15, +0.62450045135165055E-15)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, atad(1:size(data)), reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+45

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.12129708154015570234087753976995341, +0.199680740112811818818372819166561269), (+1.54480742114392801332057205043789434, +0.469761710270787795037318160901829501), (+1.39765267505509951516626121924465524, +0.210086003905886766802670523880072690), (+1.28316235633641750812915674400638402, +0.330160824396118225557508034252035742), (+1.30766712354262114937437712351779905, +0.195051924809951396882550321667426633), (+1.85756201613890393644416962091074161, +0.216451032417663194338650527191217114), (+1.65861588614082044814322793273063211, +0.787336561924060766795889885019896143E-1), (+1.10123760796431317461541127437330577, +0.319764059634487691437786233057638918), (+1.00479360982371769171663889921740856, +0.411499026375710193115415278784004532), (+1.02238875124324702411220866286865685, +0.817350163716293221472328129905987364), (+1.65884324089259309555157077524476432, +0.408463230429953512519384696292123409), (+1.32280457946243610713396486231349670, +0.802050187892081941295232897018190786), (+1.82144528409956293795364431491750162, +0.247543215381979516176001276401047286), (+1.42123792964639430372055642212962990, +0.679104948180271534867558681653897789), (+1.86272349374550949973283167461899956, +0.359072906708143405992954246126262940), (+1.09851071985339567661543352913096768, +0.599947373484225571437101580293474197E-1), (+1.87540972383923721968880028326331274, +0.542738582470891086899793683342030116), (+1.95429016206131633201714355374127991, +0.837135545586969737308342380833689875), (+1.63004012350191338451354004416204711, +0.700761679174175188949287918457171830), (+1.74004595526045145800474987427565166, +0.127019719730233087074209601775963974E-1), (+1.73333286104798924002024131559821818, +0.147950662660642535806816056355671376), (+1.24405977727803777936249076966127164, +0.346240689757168391880379878751539507), (+1.28614204832277636007606764371103985, +0.248805592649821289851987611588129040), (+1.16448586626372705399555836802690544, +0.842372836872662505727398608599864996), (+1.11826667142335709710814877546934489, +0.390933220957689606902661573229889285), (+1.23350790781665685460910423226887134, +0.744380273088104826039062212798606612), (+1.86980262192466480464432075854771300, +0.963485419387744759750896019085596377), (+1.89811490403013746296102769088928042, +0.517704426656404629647020901197576955), (+1.76504645480598158394258402095947566, +0.257555944055655169563053723351088049), (+1.10838328799974729662854903907399786, +0.638576552057396609097622893220024398), (+1.85195324609724979088162864411317571, +0.972736307303144122158685338829491933), (+1.33102728823517920187403504779980714, +0.296263774739758558024830422018366089), (+1.57780424509770389753093093390691619, +0.511586185674712264064582369738692328), (+1.34592980459597742055831330458670238, +0.682047444526129603369626983686812015), (+1.90270252730152272356382044420658622, +0.328874814696695075283603043088568751), (+1.46733162402790388489739865922501984, +0.910669872937145327380456614133630222), (+1.41811287470880302447993798349675540, +0.909546310716696387555650742407006614), (+1.49164091951903963534734670441005329, +0.946605466357578501556172977164992292), (+1.78340389391653478716524190682070313, +0.615638121990669943674045785037878592), (+1.26267983354028692239200987881759229, +0.773189491092903232210843594813159188), (+1.46313931588091892731694794722687104, +0.786842217675588016738350710526053846), (+1.47259076476422835828906490599399339, +0.429897253325394701180869059569904199), (+1.57104166606339908299793163955393977, +0.514926694239382362184419710613360661), (+1.27453170878403577479640170567164708, +0.157767967125698057699773246486471795), (+1.43313397468663660576481272005799912, +0.522570356577270682605429486352469746)

41

42atad = getFFTI(getFFTF(data))

43atad

44(+1.12129708154015570234087753976995322, +0.199680740112811818818372819166561172), (+1.54480742114392801332057205043789454, +0.469761710270787795037318160901829693), (+1.39765267505509951516626121924465505, +0.210086003905886766802670523880072811), (+1.28316235633641750812915674400638383, +0.330160824396118225557508034252035886), (+1.30766712354262114937437712351779905, +0.195051924809951396882550321667426248), (+1.85756201613890393644416962091074238, +0.216451032417663194338650527191216969), (+1.65861588614082044814322793273063249, +0.787336561924060766795889885019890847E-1), (+1.10123760796431317461541127437330577, +0.319764059634487691437786233057638822), (+1.00479360982371769171663889921740818, +0.411499026375710193115415278784004532), (+1.02238875124324702411220866286865685, +0.817350163716293221472328129905987364), (+1.65884324089259309555157077524476432, +0.408463230429953512519384696292123505), (+1.32280457946243610713396486231349670, +0.802050187892081941295232897018190786), (+1.82144528409956293795364431491750162, +0.247543215381979516176001276401047334), (+1.42123792964639430372055642212963009, +0.679104948180271534867558681653898174), (+1.86272349374550949973283167461899995, +0.359072906708143405992954246126263132), (+1.09851071985339567661543352913096768, +0.599947373484225571437101580293474016E-1), (+1.87540972383923721968880028326331274, +0.542738582470891086899793683342030116), (+1.95429016206131633201714355374127991, +0.837135545586969737308342380833689971), (+1.63004012350191338451354004416204711, +0.700761679174175188949287918457171926), (+1.74004595526045145800474987427565146, +0.127019719730233087074209601775963011E-1), (+1.73333286104798924002024131559821818, +0.147950662660642535806816056355671376), (+1.24405977727803777936249076966127203, +0.346240689757168391880379878751539507), (+1.28614204832277636007606764371104004, +0.248805592649821289851987611588128967), (+1.16448586626372705399555836802690582, +0.842372836872662505727398608599865092), (+1.11826667142335709710814877546934451, +0.390933220957689606902661573229889285), (+1.23350790781665685460910423226887134, +0.744380273088104826039062212798606612), (+1.86980262192466480464432075854771300, +0.963485419387744759750896019085596184), (+1.89811490403013746296102769088928023, +0.517704426656404629647020901197576762), (+1.76504645480598158394258402095947566, +0.257555944055655169563053723351088145), (+1.10838328799974729662854903907399786, +0.638576552057396609097622893220024494), (+1.85195324609724979088162864411317571, +0.972736307303144122158685338829491837), (+1.33102728823517920187403504779980695, +0.296263774739758558024830422018365848), (+1.57780424509770389753093093390691599, +0.511586185674712264064582369738692232), (+1.34592980459597742055831330458670276, +0.682047444526129603369626983686811918), (+1.90270252730152272356382044420658622, +0.328874814696695075283603043088568510), (+1.46733162402790388489739865922501984, +0.910669872937145327380456614133630126), (+1.41811287470880302447993798349675540, +0.909546310716696387555650742407006903), (+1.49164091951903963534734670441005367, +0.946605466357578501556172977164992870), (+1.78340389391653478716524190682070351, +0.615638121990669943674045785037878977), (+1.26267983354028692239200987881759248, +0.773189491092903232210843594813159380), (+1.46313931588091892731694794722687066, +0.786842217675588016738350710526053750), (+1.47259076476422835828906490599399358, +0.429897253325394701180869059569904007), (+1.57104166606339908299793163955394016, +0.514926694239382362184419710613360468), (+1.27453170878403577479640170567164708, +0.157767967125698057699773246486471746), (+1.43313397468663660576481272005799854, +0.522570356577270682605429486352469938), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, -0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, -0.102315028295571904693598828199824264E-33), (-0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.312963615962925826121596415670050689E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (+0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33), (+0.288889491658085377958396691387739098E-33, +0.337037740267766274284796139952362281E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, atad(1:size(data)), reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+13

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.01106811, +1.29808211, +1.68783641, +1.38409328, +1.01393557, +1.45550466, +1.12301791, +1.17132497, +1.98970675, +1.94128919, +1.62659013, +1.91975892, +1.68193901

58

59atad = getFFTI(getFFTF(data))

60atad

61+1.01106811, +1.29808187, +1.68783629, +1.38409317, +1.01393580, +1.45550442, +1.12301803, +1.17132449, +1.98970675, +1.94128895, +1.62658989, +1.91975844, +1.68193889, -0.119209290E-6, +0.417232513E-6, +0.119209290E-6

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, atad(1:size(data)), reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+80

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.8660184965087407, +1.5894024265951749, +1.2686365183712960, +1.2036878000455342, +1.2096357095354275, +1.2234673066890274, +1.9973949191028870, +1.2441447892455022, +1.1782963654737320, +1.6555127667140832, +1.4447489339844251, +1.2279205729214375, +1.7201357346437269, +1.8414408297611575, +1.6452736334867404, +1.7230890825464042, +1.3390128446146237, +1.1519626586023530, +1.0445297647230833, +1.6320000283235720, +1.9932016500706502, +1.7587517350382063, +1.6183298114614251, +1.4893298876998380, +1.1680795852408354, +1.3190007822420740, +1.9673439842413827, +1.7511233742150052, +1.0182425362780210, +1.6634859485300875, +1.6718700131842614, +1.8467841213844822, +1.1032827729133954, +1.3271633818831425, +1.9708480841963869, +1.5455006563737719, +1.1481046585822732, +1.5788687105268644, +1.4303823508755997, +1.4399257907357836, +1.6087179111731360, +1.8842631421777842, +1.1710473413427553, +1.2588106046655749, +1.5350143052851328, +1.9172578868128078, +1.6151566922025005, +1.5714644406214022, +1.6726429504419575, +1.6960489904446758, +1.0778802036665747, +1.4511736021387627, +1.6465689267902990, +1.6687292883296345, +1.0871234299691599, +1.0609784147082444, +1.6471181903855356, +1.0992572828153724, +1.3311152372962418, +1.9367725625572076, +1.8273900025322387, +1.5083413536285541, +1.0128853712466923, +1.4277070496265987, +1.1991337182068187, +1.3329976961550081, +1.7461521508485602, +1.3068599074908809, +1.9383528415763900, +1.4007584136155065, +1.0314333344508944, +1.5532800403061386, +1.4385932919597528, +1.9289864178584986, +1.3790660767465361, +1.1692685529260967, +1.2061197792391920, +1.9907019082932531, +1.8427816470407725, +1.1406476985541389

75

76atad = getFFTI(getFFTF(data))

77atad

78+1.8660184965087407, +1.5894024265951749, +1.2686365183712960, +1.2036878000455351, +1.2096357095354269, +1.2234673066890278, +1.9973949191028861, +1.2441447892455026, +1.1782963654737324, +1.6555127667140837, +1.4447489339844244, +1.2279205729214382, +1.7201357346437267, +1.8414408297611577, +1.6452736334867402, +1.7230890825464045, +1.3390128446146237, +1.1519626586023537, +1.0445297647230827, +1.6320000283235725, +1.9932016500706498, +1.7587517350382060, +1.6183298114614240, +1.4893298876998378, +1.1680795852408359, +1.3190007822420742, +1.9673439842413818, +1.7511233742150059, +1.0182425362780212, +1.6634859485300875, +1.6718700131842603, +1.8467841213844820, +1.1032827729133956, +1.3271633818831425, +1.9708480841963865, +1.5455006563737719, +1.1481046585822734, +1.5788687105268642, +1.4303823508755995, +1.4399257907357832, +1.6087179111731365, +1.8842631421777845, +1.1710473413427551, +1.2588106046655749, +1.5350143052851331, +1.9172578868128078, +1.6151566922025007, +1.5714644406214016, +1.6726429504419573, +1.6960489904446758, +1.0778802036665742, +1.4511736021387622, +1.6465689267902990, +1.6687292883296343, +1.0871234299691601, +1.0609784147082437, +1.6471181903855356, +1.0992572828153724, +1.3311152372962418, +1.9367725625572065, +1.8273900025322387, +1.5083413536285537, +1.0128853712466923, +1.4277070496265976, +1.1991337182068187, +1.3329976961550081, +1.7461521508485602, +1.3068599074908809, +1.9383528415763900, +1.4007584136155065, +1.0314333344508944, +1.5532800403061384, +1.4385932919597526, +1.9289864178584990, +1.3790660767465359, +1.1692685529260964, +1.2061197792391924, +1.9907019082932533, +1.8427816470407727, +1.1406476985541383, +0.0000000000000000, -0.33306690738754696E-15, +0.22204460492503131E-15, -0.77715611723760958E-15, +0.99920072216264089E-15, +0.33306690738754696E-15, +0.77715611723760958E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.11102230246251565E-14, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.11102230246251565E-14, -0.22204460492503131E-15, +0.99920072216264089E-15, +0.0000000000000000, +0.15543122344752192E-14

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, atad(1:size(data)), reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+8

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.42136783060850356208394652926149293, +1.45278505208950937828845549610821230, +1.09523648716906162279305129581019454, +1.27256545809598588463540469044348359, +1.13301625555457262084105447742408962, +1.84814030205582472136371625255835945, +1.85503929758944209034093886846875727, +1.64064555618308028312091744903779641

92

93atad = getFFTI(getFFTF(data))

94atad

95+1.42136783060850356208394652926149274, +1.45278505208950937828845549610821211, +1.09523648716906162279305129581019435, +1.27256545809598588463540469044348359, +1.13301625555457262084105447742408962, +1.84814030205582472136371625255835926, +1.85503929758944209034093886846875708, +1.64064555618308028312091744903779622

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, atad(1:size(data)), reltol = reltol)

100T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+62

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.21262169, +0.175724685), (+1.06389689, +0.565318763), (+1.14268064, +0.522996545), (+1.01466894, +0.129558384), (+1.20474911, +0.348053753), (+1.67126930, +0.682085752E-2), (+1.86159587, +0.835210800), (+1.22209859, +0.636225939), (+1.83343363, +0.812138438), (+1.58504891, +0.117091298), (+1.70721412, +0.798797190), (+1.64883101, +0.580694795), (+1.59760571, +0.815642834), (+1.70413673, +0.211091518), (+1.16197777, +0.334961295), (+1.41703939, +0.811682701), (+1.94935775, +0.327321887), (+1.23811173, +0.865614712), (+1.48853600, +0.288335562), (+1.33180261, +0.974587619), (+1.82884920, +0.164161503), (+1.13743973, +0.757182062), (+1.49410558, +0.155493379), (+1.77332032, +0.622331142), (+1.99700439, +0.511281192), (+1.08862472, +0.659841776), (+1.16512847, +0.789336860), (+1.69666862, +0.969520211E-1), (+1.80226183, +0.517014265), (+1.52195942, +0.233832598E-1), (+1.61024308, +0.309737921), (+1.98001242, +0.466744304E-1), (+1.27989519, +0.879972816), (+1.58307958, +0.470631421), (+1.39218068, +0.223634124), (+1.85982156, +0.182859302), (+1.48780549, +0.385890782), (+1.58141446, +0.725340843E-1), (+1.14688802, +0.383801877), (+1.29114246, +0.364128947E-1), (+1.08050466, +0.654541254), (+1.04059339, +0.734979510E-1), (+1.77466404, +0.951453686), (+1.01682484, +0.322687805), (+1.25342155, +0.706294119), (+1.22167826, +0.814725816), (+1.38834929, +0.302730620), (+1.99282503, +0.502841592), (+1.03352547, +0.168194950), (+1.21057987, +0.772504270), (+1.17362165, +0.407105565), (+1.32258999, +0.724061012), (+1.09780073, +0.487294734), (+1.63649726, +0.270586312), (+1.56302834, +0.245062470), (+1.48647904, +0.648588955), (+1.95668030, +0.628419936), (+1.28621745, +0.441981554E-1), (+1.26729536, +0.434429288), (+1.97478175, +0.319863677), (+1.57966459, +0.506428897), (+1.97653079, +0.694416881)

109

110atad = getFFTI(getFFTF(data))

111atad

112(+1.21262169, +0.175724626), (+1.06389689, +0.565318823), (+1.14268064, +0.522996545), (+1.01466882, +0.129558504), (+1.20474923, +0.348053753), (+1.67126906, +0.682099536E-2), (+1.86159563, +0.835210681), (+1.22209859, +0.636225820), (+1.83343375, +0.812138438), (+1.58504868, +0.117091402), (+1.70721424, +0.798797071), (+1.64883077, +0.580694795), (+1.59760582, +0.815642774), (+1.70413649, +0.211091518), (+1.16197777, +0.334961355), (+1.41703916, +0.811682701), (+1.94935763, +0.327321857), (+1.23811150, +0.865614653), (+1.48853600, +0.288335532), (+1.33180273, +0.974587858), (+1.82884932, +0.164161533), (+1.13743949, +0.757182002), (+1.49410546, +0.155493304), (+1.77332044, +0.622331142), (+1.99700439, +0.511281252), (+1.08862460, +0.659841716), (+1.16512859, +0.789336681), (+1.69666851, +0.969520956E-1), (+1.80226207, +0.517014384), (+1.52195919, +0.233834088E-1), (+1.61024308, +0.309737980), (+1.98001218, +0.466744825E-1), (+1.27989531, +0.879972816), (+1.58307934, +0.470631480), (+1.39218068, +0.223634034), (+1.85982144, +0.182859302), (+1.48780549, +0.385890782), (+1.58141434, +0.725340992E-1), (+1.14688802, +0.383801788), (+1.29114246, +0.364129543E-1), (+1.08050478, +0.654541254), (+1.04059339, +0.734979063E-1), (+1.77466404, +0.951453507), (+1.01682484, +0.322687835), (+1.25342166, +0.706294000), (+1.22167790, +0.814725637), (+1.38834906, +0.302730739), (+1.99282479, +0.502841473), (+1.03352535, +0.168194979), (+1.21057963, +0.772504210), (+1.17362177, +0.407105595), (+1.32258999, +0.724061072), (+1.09780097, +0.487294704), (+1.63649702, +0.270586371), (+1.56302845, +0.245062485), (+1.48647928, +0.648589134), (+1.95668042, +0.628419995), (+1.28621733, +0.441982746E-1), (+1.26729548, +0.434429169), (+1.97478163, +0.319863737), (+1.57966495, +0.506428957), (+1.97653043, +0.694416761), (+0.178813934E-6, -0.447034836E-7), (+0.178813934E-6, -0.111758709E-6)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, atad(1:size(data)), reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+77

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.0848244739112967, +0.72081634118598181), (+1.6572767491847302, +0.78053404764800560), (+1.7317172115785890, +0.67425955956138039), (+1.8080234209980548, +0.39666060520227309), (+1.3862210615275690, +0.61621239485449575), (+1.4692943205121671, +0.49270771683540782), (+1.4379292089921851, +0.96508394480306403), (+1.7610685128999761, +0.79519516792110945), (+1.7801072569491048, +0.85625118813613088), (+1.5403110884602176, +0.90853687948870265), (+1.1425601078858048, +0.62057371819808527), (+1.4875230212506032, +0.25926476433608170), (+1.4508724617715201, +0.12323759735394557), (+1.4005565169203051, +0.78946634250878589), (+1.1588775935506714, +0.69771230827373065), (+1.2821707365513602, +0.42496898367265767), (+1.9739652119208766, +0.87210683578811676), (+1.7578077474293201, +0.89846666666562836), (+1.9209414420034154, +0.44229976809111760), (+1.7242157836779244, +0.46610271974017570), (+1.0603677542135648, +0.69896830987882774), (+1.8316301480536001, +0.57252210987234897), (+1.4724044887255496, +0.11336474822544629E-1), (+1.4739349110461604, +0.91118177328842753), (+1.1957559512625568, +0.99695815682569677), (+1.4256129001540689, +0.35775539771013831), (+1.1130528411731393, +0.91444912564864200E-2), (+1.9553440382130676, +0.22591494372342114), (+1.5083549744888680, +0.58893995060446724), (+1.1419640983586115, +0.56797544686278789), (+1.3546176267736953, +0.47971314579084234), (+1.3915345697820287, +0.91564322976301626), (+1.3112109752824208, +0.80932156196183824), (+1.6879072875925689, +0.15898079589680814), (+1.3452593890437314, +0.50682955513532346), (+1.6378283186160218, +0.98704546468234899E-1), (+1.7382674840528174, +0.72195417141459106), (+1.5536256843564527, +0.57105593210834416E-2), (+1.1806471045755211, +0.31582730991527819), (+1.1069055938894907, +0.83756256975050147), (+1.4855760847979422, +0.43127996864263707), (+1.1440822568711591, +0.10541921639049645), (+1.7650778083794876, +0.82757674898388622), (+1.0390280092761615, +0.22744277218544873), (+1.2156145343037599, +0.83481260583038341), (+1.3982073712804102, +0.34070746569593746), (+1.4601309499033266, +0.59412056692345916), (+1.0760187436812751, +0.31074254442622429), (+1.4697951165216845, +0.47641329081952577), (+1.2344748323682107, +0.66674093764980658), (+1.9402549741320141, +0.97576523588389041), (+1.9191134544069692, +0.74263567064678415), (+1.5981949736810934, +0.14773079652148469), (+1.8937347083417166, +0.64644727907780042), (+1.0884711590437415, +0.84516059174099312), (+1.7452122542112600, +0.38960426568275752), (+1.2146079692409151, +0.58612090401774986), (+1.7778686265711128, +0.86886255813497626E-1), (+1.5980110616628904, +0.48317031983730441), (+1.4124628260866197, +0.64524969961808898E-1), (+1.1245885600804280, +0.29331235870949213E-1), (+1.4040402397734466, +0.34831795220547601), (+1.6734195887359122, +0.84260668086113555), (+1.9635022676460494, +0.51144400774346810), (+1.3177070122163543, +0.43740555606115727), (+1.6221092987295136, +0.35980907041905708), (+1.4709906778563315, +0.83309919085258255), (+1.5117320764986242, +0.33582135464870688), (+1.1871223307122074, +0.68879510251023679), (+1.1139958271982384, +0.17604660229768687), (+1.7358844558694460, +0.52679195457120342), (+1.0496269058893786, +0.76275517186218367), (+1.7534505178230413, +0.90944108109678501), (+1.1258738071887495, +0.80706780801012745), (+1.3393758703052874, +0.63724764701850134), (+1.3885361181613933, +0.70224265601903313), (+1.9092406485948694, +0.52406477191724199)

126

127atad = getFFTI(getFFTF(data))

128atad

129(+1.0848244739112967, +0.72081634118598170), (+1.6572767491847304, +0.78053404764800582), (+1.7317172115785888, +0.67425955956138051), (+1.8080234209980550, +0.39666060520227331), (+1.3862210615275687, +0.61621239485449575), (+1.4692943205121669, +0.49270771683540804), (+1.4379292089921849, +0.96508394480306392), (+1.7610685128999761, +0.79519516792110967), (+1.7801072569491048, +0.85625118813613099), (+1.5403110884602176, +0.90853687948870310), (+1.1425601078858050, +0.62057371819808549), (+1.4875230212506030, +0.25926476433608192), (+1.4508724617715201, +0.12323759735394557), (+1.4005565169203047, +0.78946634250878600), (+1.1588775935506717, +0.69771230827373087), (+1.2821707365513602, +0.42496898367265806), (+1.9739652119208766, +0.87210683578811665), (+1.7578077474293201, +0.89846666666562869), (+1.9209414420034154, +0.44229976809111765), (+1.7242157836779244, +0.46610271974017603), (+1.0603677542135648, +0.69896830987882763), (+1.8316301480535997, +0.57252210987234897), (+1.4724044887255494, +0.11336474822544657E-1), (+1.4739349110461601, +0.91118177328842731), (+1.1957559512625568, +0.99695815682569666), (+1.4256129001540689, +0.35775539771013842), (+1.1130528411731393, +0.91444912564865033E-2), (+1.9553440382130671, +0.22591494372342136), (+1.5083549744888680, +0.58893995060446702), (+1.1419640983586112, +0.56797544686278800), (+1.3546176267736953, +0.47971314579084212), (+1.3915345697820285, +0.91564322976301604), (+1.3112109752824210, +0.80932156196183791), (+1.6879072875925694, +0.15898079589680802), (+1.3452593890437314, +0.50682955513532324), (+1.6378283186160216, +0.98704546468234705E-1), (+1.7382674840528178, +0.72195417141459062), (+1.5536256843564522, +0.57105593210833860E-2), (+1.1806471045755207, +0.31582730991527780), (+1.1069055938894907, +0.83756256975050114), (+1.4855760847979420, +0.43127996864263696), (+1.1440822568711591, +0.10541921639049640), (+1.7650778083794876, +0.82757674898388600), (+1.0390280092761615, +0.22744277218544875), (+1.2156145343037601, +0.83481260583038308), (+1.3982073712804097, +0.34070746569593746), (+1.4601309499033266, +0.59412056692345894), (+1.0760187436812754, +0.31074254442622434), (+1.4697951165216847, +0.47641329081952555), (+1.2344748323682109, +0.66674093764980658), (+1.9402549741320141, +0.97576523588388975), (+1.9191134544069692, +0.74263567064678404), (+1.5981949736810934, +0.14773079652148427), (+1.8937347083417162, +0.64644727907780009), (+1.0884711590437415, +0.84516059174099267), (+1.7452122542112600, +0.38960426568275708), (+1.2146079692409151, +0.58612090401774974), (+1.7778686265711130, +0.86886255813497654E-1), (+1.5980110616628900, +0.48317031983730396), (+1.4124628260866194, +0.64524969961809175E-1), (+1.1245885600804282, +0.29331235870949171E-1), (+1.4040402397734462, +0.34831795220547568), (+1.6734195887359120, +0.84260668086113466), (+1.9635022676460494, +0.51144400774346754), (+1.3177070122163541, +0.43740555606115705), (+1.6221092987295134, +0.35980907041905724), (+1.4709906778563318, +0.83309919085258244), (+1.5117320764986242, +0.33582135464870688), (+1.1871223307122074, +0.68879510251023679), (+1.1139958271982382, +0.17604660229768684), (+1.7358844558694462, +0.52679195457120320), (+1.0496269058893781, +0.76275517186218356), (+1.7534505178230413, +0.90944108109678523), (+1.1258738071887489, +0.80706780801012756), (+1.3393758703052876, +0.63724764701850090), (+1.3885361181613924, +0.70224265601903313), (+1.9092406485948690, +0.52406477191724199), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.77715611723760958E-15, -0.38857805861880479E-15), (+0.44408920985006262E-15, -0.55511151231257827E-15), (+0.11102230246251565E-15, +0.0000000000000000), (-0.22204460492503131E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.55511151231257827E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.77715611723760958E-15, +0.13877787807814457E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, -0.27755575615628914E-15), (+0.0000000000000000, -0.83266726846886741E-16), (+0.11102230246251565E-15, -0.30531133177191805E-15), (+0.22204460492503131E-15, +0.13877787807814457E-16), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.83266726846886741E-16), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.26367796834847468E-15), (-0.33306690738754696E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.13877787807814457E-15), (+0.0000000000000000, +0.33306690738754696E-15), (+0.0000000000000000, +0.33306690738754696E-15), (+0.0000000000000000, +0.38857805861880479E-15), (+0.0000000000000000, +0.27755575615628914E-15), (+0.0000000000000000, +0.27755575615628914E-16), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.33306690738754696E-15), (+0.0000000000000000, -0.19428902930940239E-15), (-0.22204460492503131E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.30531133177191805E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.49960036108132044E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.58286708792820718E-15), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.55511151231257827E-15), (+0.33306690738754696E-15, +0.69388939039072284E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.13877787807814457E-15), (+0.11102230246251565E-15, +0.36082248300317588E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, +0.15265566588595902E-15), (+0.22204460492503131E-15, +0.63837823915946501E-15), (+0.11102230246251565E-15, +0.99920072216264089E-15), (+0.11102230246251565E-15, +0.99920072216264089E-15)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, atad(1:size(data)), reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+82

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.54686592749554813344140227366116090, +0.915664025987941367798742234676276694), (+1.55350785668164211470705947563936729, +0.952942271211362614156683383637475042), (+1.72970556253575255797640718831888208, +0.945724753801551262629173205513126071), (+1.23225530386912004489065727254793992, +0.378361627450510152053745620762638367), (+1.81567700485438465570903094458129744, +0.492114309104270202399195702144960496), (+1.07907374854107290813204154545334785, +0.437036328227012444924993260567283245), (+1.65533033575442896357165976888876433, +0.762616802493604363893451587120027561), (+1.92244083481283851712124386199751447, +0.897430520159198845426591490852879617), (+1.53925867603360823955646206725865432, +0.243678289993173108139320905520495689), (+1.16393684720132851885610793410546982, +0.484696607988101110336326566062020925), (+1.70656461858044064943575169299748431, +0.638219159835835234520342593893505700), (+1.55531490052802035383196651661779526, +0.483523022504513477427948598696937205), (+1.82449732877060891244252939079107746, +0.347321022765762067585226308885997068), (+1.40730768200568591539375040722859826, +0.653910208412171381688247431744476759), (+1.55955194301122560166336922778564577, +0.735688892580210986545355705712419235), (+1.01773796298033691194668922720914249, +0.959055201234373822016124532429835148), (+1.49944856738772964727557503990554255, +0.978281471255150368750128226470850593), (+1.79272325453689126136935547569369501, +0.921905458403885397976988553624993374), (+1.23110534858404133334016164238517936, +0.219567634755167707956018656866033539), (+1.30365947251727694842417312435986593, +0.550961700050777545005867297723238473), (+1.72051028891822039786367131348894144, +0.470472878282943648133760467822816196), (+1.48661186329690530406421261000973377, +0.609753371973923119766119068133520833), (+1.04581566510400864706225874313677563, +0.449463244222158351561645751132621659), (+1.05438882053822913236196386806980513, +0.796823961797112646521492441499881107), (+1.45559428174672993929148581278871752, +0.832089841801752425682301538119165804), (+1.82326703934623794627917711901957373, +0.427705781326120892853969281554491051), (+1.64102884387433943766607296659709768, +0.776478564361747626367303107529710285), (+1.60862677481264245338158800739817945, +0.289265837959711065839346225876392256), (+1.79777037991507413939414573966037276, +0.289529164030663158700803120301252341), (+1.56340851846411817653189441603704456, +0.518156278399862797973039588014425349), (+1.40732770126719249697756847779869839, +0.941112790215767488294004465702051717), (+1.03359137519819854880711798872043413, +0.721651602346318745685508940026162311), (+1.13885969409148754365775656750325176, +0.619403460720906101784042583720886964), (+1.65283965726081450676711003195793200, +0.995805995932512620612393887101503274), (+1.80000677541809683457984818506704713, +0.349572990974934956593904703040574350), (+1.62622079354701799614170118507307892, +0.344055136251528101691439327769549512E-1), (+1.66561844101690755737906248270678203, +0.754422037228007736826062717239292795), (+1.15300572592758497373758118265596463, +0.621046348014500153446233065056608914), (+1.25815361004014477157486683837503349, +0.997351770747281652830027420683967625), (+1.38142190459462551673734047658670644, +0.966493331094570476327227658333672680), (+1.17808652459318851160280824040174086, +0.896546182113075715575530907681119104E-1), (+1.21112523995422859825498371483592896, +0.440820302485823191601312875552525901), (+1.81854153321362651817718072044122297, +0.615922551657138420136324081453746681), (+1.14378668628772708208598756126455188, +0.329253774935154485657371291024270436), (+1.56023918708980544937699015728613429, +0.774650943737904762654989374934693393), (+1.91146051021976452092975382374539698, +0.905202492692746076020000409216592588), (+1.67022529513852044899979922556728995, +0.563198479130066154428685253636901192), (+1.84734023971016279958618277450506450, +0.247933131792232196033888259252405128), (+1.24902147525858173564107661159424244, +0.152951466944644667007859400594346440), (+1.52137033805803584946232171596603941, +0.400350375975170029168535836040285036), (+1.17344001911487662145393173967995118, +0.656900317420257457379283454423453204), (+1.48716482549499494572553472844372953, +0.604654209898746027634498361158436983E-1), (+1.29769602528483978458061978472122477, +0.351716348720054496275507599534457283), (+1.97466687023731280886348990792312635, +0.679938597622260031793318678246277853), (+1.06939846224456844888879516567021859, +0.945988374923320862550723455392726587), (+1.55512449940923833537557421651083087, +0.685484851541672006425708704893559457E-1), (+1.25674716347030840405640434369045029, +0.563473710651436947677908122999151233E-1), (+1.40027587273017443482317259093650615, +0.254441197652957824343121303710362267), (+1.44785877513270410425764712346384991, +0.907007220995326315031108683897912814), (+1.61962308060204159145563450397964018, +0.561512724140742278198860076214182127), (+1.40571172765928220006852132286847048, +0.872382209921460716519770428031009094), (+1.05044662344345283776259249701985272, +0.649173749931674910825826748158108581), (+1.98422502644863788802437011381908708, +0.310021250370917094818965763974891862E-1), (+1.69440353429505404694276695488373559, +0.954602172228169887630783148312525319), (+1.63440193151332957078845654475099671, +0.278764007374047282039938947538852582), (+1.62765722234551003952102145085984376, +0.696482491827575821795380491877298874), (+1.47675222287276312832969073338390198, +0.421943254437068289104491008012553742), (+1.24981155067644579942961015426741484, +0.386518297694255860828053898393720325), (+1.14685951155845093348421940571971139, +0.463212700318042511805303123706213329), (+1.23689447848574261336608888716279772, +0.384476255733442755415437985677230201), (+1.50725657552445108211631560342809159, +0.863815841257069265397766532868058937), (+1.18345371960177481083035240527282957, +0.995879017969615678196908849373828942), (+1.40448991339683519317281294247849360, +0.348621648031177146793834922139664993), (+1.15113750739677775362414064850716972, +0.730244010861836471400708671004516550), (+1.43885034271452066283802504843044203, +0.411907332328608859825976769947095766E-1), (+1.83338629559541029753219729617176535, +0.697715887247524770805485165109725885), (+1.73526921806344889491347613771222214, +0.214809985691790406531875693701331042), (+1.92422658948518009341574783096193179, +0.438463782803485051553461635931590282), (+1.63992915439951394127961180734465909, +0.320050971614584244496963304514891044), (+1.17580404489543131331541438692923436, +0.939244460448237627520171421322083717E-1), (+1.71451258682410803790647074689630038, +0.405498902579826015033072468916263954), (+1.67698242093151077529644093098874204, +0.789002932362961611420198775101000024)

143

144atad = getFFTI(getFFTF(data))

145atad

146(+1.54686592749554813344140227366116071, +0.915664025987941367798742234676276790), (+1.55350785668164211470705947563936749, +0.952942271211362614156683383637474946), (+1.72970556253575255797640718831888208, +0.945724753801551262629173205513126071), (+1.23225530386912004489065727254794031, +0.378361627450510152053745620762638270), (+1.81567700485438465570903094458129744, +0.492114309104270202399195702144960399), (+1.07907374854107290813204154545334785, +0.437036328227012444924993260567282956), (+1.65533033575442896357165976888876395, +0.762616802493604363893451587120027272), (+1.92244083481283851712124386199751485, +0.897430520159198845426591490852879328), (+1.53925867603360823955646206725865451, +0.243678289993173108139320905520495906), (+1.16393684720132851885610793410547001, +0.484696607988101110336326566062020780), (+1.70656461858044064943575169299748469, +0.638219159835835234520342593893505989), (+1.55531490052802035383196651661779564, +0.483523022504513477427948598696937108), (+1.82449732877060891244252939079107746, +0.347321022765762067585226308885996971), (+1.40730768200568591539375040722859865, +0.653910208412171381688247431744476855), (+1.55955194301122560166336922778564577, +0.735688892580210986545355705712419139), (+1.01773796298033691194668922720914249, +0.959055201234373822016124532429835437), (+1.49944856738772964727557503990554255, +0.978281471255150368750128226470850690), (+1.79272325453689126136935547569369520, +0.921905458403885397976988553624993278), (+1.23110534858404133334016164238517916, +0.219567634755167707956018656866033443), (+1.30365947251727694842417312435986631, +0.550961700050777545005867297723238281), (+1.72051028891822039786367131348894183, +0.470472878282943648133760467822816100), (+1.48661186329690530406421261000973396, +0.609753371973923119766119068133520930), (+1.04581566510400864706225874313677563, +0.449463244222158351561645751132621562), (+1.05438882053822913236196386806980513, +0.796823961797112646521492441499881107), (+1.45559428174672993929148581278871772, +0.832089841801752425682301538119166093), (+1.82326703934623794627917711901957411, +0.427705781326120892853969281554490859), (+1.64102884387433943766607296659709768, +0.776478564361747626367303107529710477), (+1.60862677481264245338158800739817983, +0.289265837959711065839346225876392063), (+1.79777037991507413939414573966037276, +0.289529164030663158700803120301252341), (+1.56340851846411817653189441603704514, +0.518156278399862797973039588014425252), (+1.40732770126719249697756847779869839, +0.941112790215767488294004465702051717), (+1.03359137519819854880711798872043432, +0.721651602346318745685508940026162311), (+1.13885969409148754365775656750325195, +0.619403460720906101784042583720887157), (+1.65283965726081450676711003195793219, +0.995805995932512620612393887101503563), (+1.80000677541809683457984818506704713, +0.349572990974934956593904703040574495), (+1.62622079354701799614170118507307930, +0.344055136251528101691439327769546743E-1), (+1.66561844101690755737906248270678242, +0.754422037228007736826062717239292699), (+1.15300572592758497373758118265596483, +0.621046348014500153446233065056608722), (+1.25815361004014477157486683837503330, +0.997351770747281652830027420683967914), (+1.38142190459462551673734047658670663, +0.966493331094570476327227658333672777), (+1.17808652459318851160280824040174105, +0.896546182113075715575530907681121030E-1), (+1.21112523995422859825498371483592896, +0.440820302485823191601312875552525949), (+1.81854153321362651817718072044122316, +0.615922551657138420136324081453747067), (+1.14378668628772708208598756126455227, +0.329253774935154485657371291024270436), (+1.56023918708980544937699015728613448, +0.774650943737904762654989374934693490), (+1.91146051021976452092975382374539756, +0.905202492692746076020000409216593165), (+1.67022529513852044899979922556729014, +0.563198479130066154428685253636901192), (+1.84734023971016279958618277450506488, +0.247933131792232196033888259252405224), (+1.24902147525858173564107661159424263, +0.152951466944644667007859400594346632), (+1.52137033805803584946232171596603941, +0.400350375975170029168535836040284988), (+1.17344001911487662145393173967995118, +0.656900317420257457379283454423453396), (+1.48716482549499494572553472844372972, +0.604654209898746027634498361158436381E-1), (+1.29769602528483978458061978472122515, +0.351716348720054496275507599534457139), (+1.97466687023731280886348990792312712, +0.679938597622260031793318678246277949), (+1.06939846224456844888879516567021859, +0.945988374923320862550723455392726876), (+1.55512449940923833537557421651083126, +0.685484851541672006425708704893558494E-1), (+1.25674716347030840405640434369045067, +0.563473710651436947677908122999152677E-1), (+1.40027587273017443482317259093650634, +0.254441197652957824343121303710362412), (+1.44785877513270410425764712346385029, +0.907007220995326315031108683897913007), (+1.61962308060204159145563450397964076, +0.561512724140742278198860076214182512), (+1.40571172765928220006852132286847086, +0.872382209921460716519770428031009286), (+1.05044662344345283776259249701985292, +0.649173749931674910825826748158108966), (+1.98422502644863788802437011381908727, +0.310021250370917094818965763974892825E-1), (+1.69440353429505404694276695488373636, +0.954602172228169887630783148312525607), (+1.63440193151332957078845654475099671, +0.278764007374047282039938947538852630), (+1.62765722234551003952102145085984395, +0.696482491827575821795380491877299259), (+1.47675222287276312832969073338390160, +0.421943254437068289104491008012553934), (+1.24981155067644579942961015426741484, +0.386518297694255860828053898393720517), (+1.14685951155845093348421940571971139, +0.463212700318042511805303123706213329), (+1.23689447848574261336608888716279791, +0.384476255733442755415437985677230105), (+1.50725657552445108211631560342809159, +0.863815841257069265397766532868058937), (+1.18345371960177481083035240527282957, +0.995879017969615678196908849373829231), (+1.40448991339683519317281294247849341, +0.348621648031177146793834922139665185), (+1.15113750739677775362414064850716934, +0.730244010861836471400708671004516935), (+1.43885034271452066283802504843044184, +0.411907332328608859825976769947097211E-1), (+1.83338629559541029753219729617176554, +0.697715887247524770805485165109726367), (+1.73526921806344889491347613771222214, +0.214809985691790406531875693701331139), (+1.92422658948518009341574783096193237, +0.438463782803485051553461635931590571), (+1.63992915439951394127961180734465871, +0.320050971614584244496963304514891140), (+1.17580404489543131331541438692923417, +0.939244460448237627520171421322084680E-1), (+1.71451258682410803790647074689630038, +0.405498902579826015033072468916263858), (+1.67698242093151077529644093098874224, +0.789002932362961611420198775101000313), (-0.288889491658085377958396691387739098E-33, -0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-33), (+0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (-0.962964972193617926527988971292463659E-34, +0.337037740267766274284796139952362281E-33), (+0.00000000000000000000000000000000000, +0.168518870133883137142398069976181140E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, +0.120370621524202240815998621411557957E-33), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, +0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.132407683676622464897598483552713753E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.288889491658085377958396691387739098E-33), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.601853107621011204079993107057789787E-34), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, +0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.433334237487128066937595037081608647E-33), (-0.770371977754894341222391177033970927E-33, -0.433334237487128066937595037081608647E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, atad(1:size(data)), reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+64

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.25507867, +1.19603777, +1.71340048, +1.39054310, +1.85588694, +1.93750930, +1.28923416, +1.97532868, +1.30893445, +1.49237049, +1.47413588, +1.76199234, +1.56517339, +1.37414169, +1.16463399, +1.47869563, +1.63695848, +1.53201604, +1.32997453, +1.07602620, +1.55407691, +1.01961756, +1.90304685, +1.63479102, +1.04600167, +1.06630313, +1.37874854, +1.89063978, +1.25133669, +1.14441490, +1.97733855, +1.37467587, +1.62140322, +1.14105713, +1.58840513, +1.27132463, +1.13563669, +1.12441993, +1.93986142, +1.41722858, +1.27231240, +1.95266128, +1.39052892, +1.02001929, +1.50639999, +1.65200615, +1.82690859, +1.47137499, +1.13174665, +1.25610638, +1.13417566, +1.38343787, +1.97447610, +1.60979676, +1.64319468, +1.36498880, +1.81511521, +1.47691131, +1.26291084, +1.29270864, +1.81242847, +1.02026010, +1.47708368, +1.94045901

160

161atad = getFFTI(getFFTF(data))

162atad

163+1.25507867, +1.19603765, +1.71340060, +1.39054286, +1.85588682, +1.93750918, +1.28923440, +1.97532856, +1.30893445, +1.49237037, +1.47413599, +1.76199186, +1.56517327, +1.37414157, +1.16463411, +1.47869563, +1.63695860, +1.53201592, +1.32997465, +1.07602608, +1.55407679, +1.01961756, +1.90304685, +1.63479102, +1.04600179, +1.06630301, +1.37874854, +1.89063954, +1.25133657, +1.14441478, +1.97733867, +1.37467587, +1.62140334, +1.14105713, +1.58840537, +1.27132452, +1.13563669, +1.12441981, +1.93986154, +1.41722858, +1.27231240, +1.95266104, +1.39052904, +1.02001894, +1.50639999, +1.65200603, +1.82690871, +1.47137499, +1.13174677, +1.25610626, +1.13417578, +1.38343775, +1.97447598, +1.60979676, +1.64319491, +1.36498868, +1.81511509, +1.47691107, +1.26291072, +1.29270840, +1.81242847, +1.02026021, +1.47708380, +1.94045889

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, atad(1:size(data)), reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+48

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.2141754291260471, +1.3735417685449343, +1.9521669419481675, +1.2200281767002688, +1.1525425892992875, +1.3477102440760516, +1.4411904288743345, +1.5144495656600663, +1.7266287388952921, +1.2248601998909820, +1.9933012461698509, +1.4688616216785808, +1.0393481818587271, +1.8544976628165939, +1.8664660656146448, +1.0047990900973849, +1.6811184118613816, +1.3984597121090352, +1.3250044374136825, +1.3532443505266207, +1.9607774437721179, +1.7226755804298326, +1.0271559344211392, +1.9812144321821217, +1.5930454798987919, +1.7944851723857460, +1.7185406649318020, +1.4270506652075752, +1.4569630043035486, +1.1831921654398514, +1.7804834274327421, +1.7651644088930050, +1.1800822351748690, +1.2721099534605833, +1.1190013692673910, +1.8902207626895782, +1.2776971624711320, +1.6631875301235901, +1.0751823495080788, +1.1720924964978228, +1.1741687773738079, +1.3344392416094664, +1.6901259401947821, +1.5929244725229781, +1.3598216510193923, +1.8293246423192930, +1.9434803002380470, +1.5295506759673403

177

178atad = getFFTI(getFFTF(data))

179atad

180+1.2141754291260471, +1.3735417685449347, +1.9521669419481671, +1.2200281767002694, +1.1525425892992869, +1.3477102440760520, +1.4411904288743345, +1.5144495656600663, +1.7266287388952917, +1.2248601998909820, +1.9933012461698507, +1.4688616216785810, +1.0393481818587265, +1.8544976628165946, +1.8664660656146443, +1.0047990900973847, +1.6811184118613816, +1.3984597121090352, +1.3250044374136820, +1.3532443505266210, +1.9607774437721175, +1.7226755804298328, +1.0271559344211392, +1.9812144321821217, +1.5930454798987914, +1.7944851723857460, +1.7185406649318016, +1.4270506652075750, +1.4569630043035480, +1.1831921654398518, +1.7804834274327412, +1.7651644088930045, +1.1800822351748690, +1.2721099534605838, +1.1190013692673908, +1.8902207626895786, +1.2776971624711317, +1.6631875301235906, +1.0751823495080788, +1.1720924964978230, +1.1741687773738076, +1.3344392416094664, +1.6901259401947824, +1.5929244725229785, +1.3598216510193921, +1.8293246423192937, +1.9434803002380470, +1.5295506759673401, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.77715611723760958E-15, +0.55511151231257827E-15, +0.11102230246251565E-14, +0.22204460492503131E-15, +0.11102230246251565E-14, +0.66613381477509392E-15, +0.11102230246251565E-14

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, atad(1:size(data)), reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+30

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.67851786449898117563972027646648820, +1.49085338075736529399746912446094247, +1.78123679535665468984886095484291730, +1.01346166265925846144363746689364483, +1.85895064500943145805094019693757579, +1.82545106726869136081304823615210580, +1.46693718739971796851355159984212695, +1.87414505969381837638950393864414369, +1.30970918648177664628609870839627023, +1.52199149778999563689847698400412948, +1.12629023407326048669027767147568431, +1.07768645831052125053953525252229003, +1.44069449635964749007127720436932254, +1.19079942251835903303756755955913442, +1.73317020065530306472431758386964193, +1.05277043755769769564781854277188813, +1.02435937995232688034781957987390806, +1.73217118058197044322879050152698414, +1.73001210503595294556211964655453647, +1.13777852558946895234609154126633056, +1.07781010766148014187183809354010103, +1.19277698918963099525434952357818052, +1.21613830160759289854976694235725755, +1.67260806072614177480289540987344442, +1.32157406495019361058763557114803330, +1.41606988025860971909551133677222698, +1.73530655836719632573865919208465173, +1.49144898487302445464564913777266892, +1.76225891536880121196674564195948855, +1.66503634816238434631933833044717705

194

195atad = getFFTI(getFFTF(data))

196atad

197+1.67851786449898117563972027646648801, +1.49085338075736529399746912446094247, +1.78123679535665468984886095484291749, +1.01346166265925846144363746689364483, +1.85895064500943145805094019693757598, +1.82545106726869136081304823615210580, +1.46693718739971796851355159984212695, +1.87414505969381837638950393864414388, +1.30970918648177664628609870839627004, +1.52199149778999563689847698400412948, +1.12629023407326048669027767147568411, +1.07768645831052125053953525252228964, +1.44069449635964749007127720436932254, +1.19079942251835903303756755955913442, +1.73317020065530306472431758386964231, +1.05277043755769769564781854277188794, +1.02435937995232688034781957987390806, +1.73217118058197044322879050152698414, +1.73001210503595294556211964655453628, +1.13777852558946895234609154126633056, +1.07781010766148014187183809354010084, +1.19277698918963099525434952357818071, +1.21613830160759289854976694235725736, +1.67260806072614177480289540987344461, +1.32157406495019361058763557114803310, +1.41606988025860971909551133677222698, +1.73530655836719632573865919208465154, +1.49144898487302445464564913777266892, +1.76225891536880121196674564195948855, +1.66503634816238434631933833044717685, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, atad(1:size(data)), reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+10

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.76929188, +0.990070105), (+1.54219961, +0.206166089), (+1.69886255, +0.853507280), (+1.54412997, +0.603073239), (+1.68608630, +0.787694693), (+1.35450387, +0.257300615), (+1.85639763, +0.257365704E-1), (+1.36805153, +0.525989830), (+1.72690737, +0.757178068E-1), (+1.26900911, +0.793178320)

211

212atad = getFFTI(getFFTF(data))

213atad

214(+1.76929188, +0.990070224), (+1.54219961, +0.206166148), (+1.69886243, +0.853507280), (+1.54412985, +0.603073299), (+1.68608642, +0.787694573), (+1.35450387, +0.257300586), (+1.85639763, +0.257362425E-1), (+1.36805153, +0.525989771), (+1.72690725, +0.757178068E-1), (+1.26900887, +0.793178320), (+0.00000000, -0.894069672E-7), (+0.119209290E-6, -0.596046448E-7), (-0.178813934E-6, +0.178813934E-6), (+0.00000000, +0.119209290E-6), (-0.596046448E-7, +0.447034836E-6), (+0.119209290E-6, +0.119209290E-6)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, atad(1:size(data)), reltol = reltol)

219T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+62

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.2876799068615921, +0.51152476262806967), (+1.6337476318956461, +0.49030425849821468), (+1.8816342668549531, +0.59662865924486630), (+1.4122405281801207, +0.95546511548463997), (+1.9292977493219108, +0.29850110760625681), (+1.4364889357764925, +0.94793909255723452), (+1.9628142242264621, +0.32504524287630343), (+1.9038321709365689, +0.55606842100694731), (+1.5296443354592371, +0.83176529853533154), (+1.1386008720838192, +0.50842386397121342), (+1.8831445306526353, +0.71998065298476199), (+1.3178270268691299, +0.53644401725205271), (+1.4547122500450520, +0.90139374844157860), (+1.6735999127453431, +0.32220974890627030), (+1.8448115075055109, +0.32685503138459004), (+1.9359869072242391, +0.81475413939364327), (+1.0607504357956952, +0.13404269679336467), (+1.3667614750475332, +0.89062127214834297), (+1.5170870414262061, +0.88028043662408595), (+1.0175455913863796, +0.11391127784347810E-1), (+1.1116000267018935, +0.49254123510879155), (+1.4051714466574836, +0.47547084298630315), (+1.4837067831693100, +0.10281783607949657), (+1.0642098934467634, +0.84682907899302662), (+1.7340779334914282, +0.32351252505727557), (+1.0794550866674297, +0.26185651388027276), (+1.9309926132908635, +0.83595721682154822), (+1.6481142975330143, +0.99961082517730515), (+1.5122668520268272, +0.57386676177444240), (+1.6265974656237052, +0.65904644557352221), (+1.3149587932702276, +0.55433180953689987), (+1.1693054092597324, +0.79246376002503016), (+1.6599157017010777, +0.23125673533727675), (+1.0525355598084780, +0.27576469326042630E-1), (+1.8390961974245377, +0.82922139072598045), (+1.4109989379884005, +0.81626811708602043), (+1.8110967082115863, +0.20265741762061984), (+1.5774770135743688, +0.89494228458712866), (+1.3495361933705339, +0.54836792301009218), (+1.8546484417672611, +0.72476834623654085), (+1.7894036521534065, +0.30701284794895733), (+1.5369563084036157, +0.23622196280298324), (+1.9052217830628257, +0.40239383646294713), (+1.3035825663679061, +0.84665959023189652), (+1.3444356511132858, +0.53563242634650332), (+1.1223608673039616, +0.76587031333869904), (+1.6992525299708539, +0.27474911747399700), (+1.8719388282992806, +0.80207950390704419), (+1.9517678641429068, +0.35950708200942127), (+1.3282061925838056, +0.94820180281561872), (+1.2082120500057432, +0.54202433788824955), (+1.4811218393911787, +0.35606671881230367), (+1.2231747609091288, +0.58607126876664950), (+1.9892353832821952, +0.80412277002113419), (+1.8278579778638659, +0.30422620116230836), (+1.9483496054272971, +0.13238220778625687), (+1.9756195527505733, +0.10944785324128259), (+1.1704963194522398, +0.62042949814250092), (+1.5581002957961732, +0.71052974854135109), (+1.9377799817556212, +0.32978140123668298), (+1.9780874682103113, +0.11158916250512541), (+1.9448968380021130, +0.38550935197741443)

228

229atad = getFFTI(getFFTF(data))

230atad

231(+1.2876799068615923, +0.51152476262806967), (+1.6337476318956461, +0.49030425849821468), (+1.8816342668549531, +0.59662865924486641), (+1.4122405281801209, +0.95546511548464019), (+1.9292977493219108, +0.29850110760625720), (+1.4364889357764923, +0.94793909255723452), (+1.9628142242264621, +0.32504524287630354), (+1.9038321709365689, +0.55606842100694709), (+1.5296443354592373, +0.83176529853533177), (+1.1386008720838192, +0.50842386397121353), (+1.8831445306526355, +0.71998065298476199), (+1.3178270268691301, +0.53644401725205260), (+1.4547122500450520, +0.90139374844157871), (+1.6735999127453434, +0.32220974890627030), (+1.8448115075055109, +0.32685503138459049), (+1.9359869072242384, +0.81475413939364372), (+1.0607504357956956, +0.13404269679336489), (+1.3667614750475332, +0.89062127214834308), (+1.5170870414262063, +0.88028043662408595), (+1.0175455913863798, +0.11391127784347671E-1), (+1.1116000267018931, +0.49254123510879166), (+1.4051714466574836, +0.47547084298630332), (+1.4837067831693103, +0.10281783607949682), (+1.0642098934467636, +0.84682907899302662), (+1.7340779334914285, +0.32351252505727579), (+1.0794550866674300, +0.26185651388027276), (+1.9309926132908637, +0.83595721682154778), (+1.6481142975330145, +0.99961082517730504), (+1.5122668520268272, +0.57386676177444262), (+1.6265974656237052, +0.65904644557352232), (+1.3149587932702280, +0.55433180953689964), (+1.1693054092597324, +0.79246376002502994), (+1.6599157017010779, +0.23125673533727670), (+1.0525355598084780, +0.27576469326042519E-1), (+1.8390961974245379, +0.82922139072598022), (+1.4109989379884007, +0.81626811708602054), (+1.8110967082115863, +0.20265741762062012), (+1.5774770135743685, +0.89494228458712877), (+1.3495361933705343, +0.54836792301009241), (+1.8546484417672615, +0.72476834623654085), (+1.7894036521534067, +0.30701284794895745), (+1.5369563084036160, +0.23622196280298327), (+1.9052217830628260, +0.40239383646294724), (+1.3035825663679066, +0.84665959023189652), (+1.3444356511132862, +0.53563242634650343), (+1.1223608673039618, +0.76587031333869882), (+1.6992525299708539, +0.27474911747399700), (+1.8719388282992802, +0.80207950390704430), (+1.9517678641429073, +0.35950708200942133), (+1.3282061925838056, +0.94820180281561872), (+1.2082120500057434, +0.54202433788824966), (+1.4811218393911789, +0.35606671881230367), (+1.2231747609091286, +0.58607126876664961), (+1.9892353832821952, +0.80412277002113441), (+1.8278579778638664, +0.30422620116230858), (+1.9483496054272971, +0.13238220778625681), (+1.9756195527505735, +0.10944785324128276), (+1.1704963194522398, +0.62042949814250092), (+1.5581002957961734, +0.71052974854135054), (+1.9377799817556214, +0.32978140123668287), (+1.9780874682103113, +0.11158916250512579), (+1.9448968380021130, +0.38550935197741465), (+0.88817841970012523E-15, +0.49960036108132044E-15), (+0.55511151231257827E-15, +0.22204460492503131E-15)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, atad(1:size(data)), reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+47

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.64653889069359274336579356526995053, +0.911019857500860678488470938363213271), (+1.24232608738569052094683484782908593, +0.415572313346804584979962669670908827), (+1.17551130913121640994916781999693846, +0.823995084666267866364063136872064473), (+1.97205435617446004091616223988324806, +0.882694444361176688663864702003357558), (+1.40930480361198803916350380038888759, +0.529558073702382443226990323933505568), (+1.58219211873568202142800638767143956, +0.361401757552384656663475107897193644), (+1.51672046769661524953926851543466072, +0.539245373885422608128437680400448850), (+1.12090704894383505457428051804032581, +0.180110545770472686736112721692234940), (+1.70513209508466110458953532768460645, +0.449333509551608055656811588285623684), (+1.32952818016325174335348136203071024, +0.128548514553932039910823702026165969), (+1.81065666816995259447622622406108945, +0.651490887385123870486009044116938935), (+1.93827715342205741212820631922671123, +0.406408733482006708827590209770885346), (+1.02955343415556314849319100977641807, +0.891699620705526670926491118101861884E-1), (+1.56061155281623716382502460442336383, +0.692566307566663492972870526754333931), (+1.71423724824311164833711426677282631, +0.487043509067643350005621311947916158), (+1.22657103161486114114002529893933366, +0.920152868794633557407435488477875898), (+1.18252987831219648301390590540808816, +0.476531791492495321577877114183326963), (+1.61829425734507898755449973281619092, +0.120087144326335324188872974430962086), (+1.42836906262551941718725679860115146, +0.989301290642521181584026022468220226E-1), (+1.08454171460070115522850442376179779, +0.996729985665011223253575619852582849), (+1.06732438258566054609051998361132615, +0.743133262552598260766351602109154389), (+1.57621173912528145460911042058560829, +0.212441222591689673616459745000702048), (+1.21226560109718395913104161576748754, +0.265372715431431841086902966615315397), (+1.81008813729922958157414006189697441, +0.135166390556168466396824495444857022), (+1.59111632442605940481094071406608256, +0.709204328762528382097809118117686527), (+1.72562574466524777538060693915668305, +0.566870593651346872911982976255764385), (+1.09442764361609815260022699291939465, +0.241478990535970799997708727390826356E-1), (+1.08251993622894765357673758064501145, +0.610861706505524676713815408935703574E-1), (+1.93249548032568756020207292860676354, +0.593666998733600459650064955444254595), (+1.81136878417041598217464847325459381, +0.720218784124432112180953399834939830), (+1.53405284585269058568542238432824880, +0.318793796892607975723432575076850333), (+1.72515372987105936724559495761946697, +0.252858351414041086904626757015746545), (+1.04738229004959059209693454999959774, +0.484711031952195221636124474602288820), (+1.58704684890846989954145751631480570, +0.443072927678142402508041033623855554E-1), (+1.28340247367685378449879386768244311, +0.733060939009389046075109180867734023E-1), (+1.94799068420491186131774960379576742, +0.910173002766215493451949748912764510), (+1.36987995848240407367763824815551111, +0.364728742875321340876739798764848009), (+1.58222045561153306719785904318748955, +0.415909812307615652932719245642356686), (+1.24885292451171123507083998271384135, +0.425677392595858656909129726919316416E-1), (+1.82608583483309338470885250976278741, +0.849760343730526105698637405133762839), (+1.88675908725009171519042135802764667, +0.998818576105771285341114383897114587), (+1.99949194001567904428201344529284436, +0.151775100796051174711994587486577242), (+1.98986354582744938738451483686469311, +0.732121236389725735174542160901435458), (+1.26262101733307008574060418913238630, +0.744000415833978880807074339455542340), (+1.26624971196215692452250649265127450, +0.245022382650445974001691702984578994), (+1.04517548904315077737345528233141031, +0.724647489750875355038880242687401025), (+1.84924593688405079216934823342171959, +0.566502916265849419997719505117945026)

245

246atad = getFFTI(getFFTF(data))

247atad

248(+1.64653889069359274336579356526995072, +0.911019857500860678488470938363213271), (+1.24232608738569052094683484782908573, +0.415572313346804584979962669670908731), (+1.17551130913121640994916781999693827, +0.823995084666267866364063136872064570), (+1.97205435617446004091616223988324787, +0.882694444361176688663864702003357365), (+1.40930480361198803916350380038888778, +0.529558073702382443226990323933505568), (+1.58219211873568202142800638767143995, +0.361401757552384656663475107897193404), (+1.51672046769661524953926851543466091, +0.539245373885422608128437680400448754), (+1.12090704894383505457428051804032542, +0.180110545770472686736112721692234555), (+1.70513209508466110458953532768460684, +0.449333509551608055656811588285623587), (+1.32952818016325174335348136203071024, +0.128548514553932039910823702026166162), (+1.81065666816995259447622622406108925, +0.651490887385123870486009044116939031), (+1.93827715342205741212820631922671084, +0.406408733482006708827590209770885443), (+1.02955343415556314849319100977641826, +0.891699620705526670926491118101861403E-1), (+1.56061155281623716382502460442336363, +0.692566307566663492972870526754334220), (+1.71423724824311164833711426677282650, +0.487043509067643350005621311947916447), (+1.22657103161486114114002529893933328, +0.920152868794633557407435488477875898), (+1.18252987831219648301390590540808855, +0.476531791492495321577877114183326867), (+1.61829425734507898755449973281619053, +0.120087144326335324188872974430962134), (+1.42836906262551941718725679860115146, +0.989301290642521181584026022468220948E-1), (+1.08454171460070115522850442376179799, +0.996729985665011223253575619852582752), (+1.06732438258566054609051998361132615, +0.743133262552598260766351602109154292), (+1.57621173912528145460911042058560867, +0.212441222591689673616459745000702096), (+1.21226560109718395913104161576748773, +0.265372715431431841086902966615315541), (+1.81008813729922958157414006189697402, +0.135166390556168466396824495444856950), (+1.59111632442605940481094071406608256, +0.709204328762528382097809118117686527), (+1.72562574466524777538060693915668305, +0.566870593651346872911982976255764289), (+1.09442764361609815260022699291939503, +0.241478990535970799997708727390827800E-1), (+1.08251993622894765357673758064501107, +0.610861706505524676713815408935701408E-1), (+1.93249548032568756020207292860676373, +0.593666998733600459650064955444254691), (+1.81136878417041598217464847325459381, +0.720218784124432112180953399834939830), (+1.53405284585269058568542238432824841, +0.318793796892607975723432575076850333), (+1.72515372987105936724559495761946697, +0.252858351414041086904626757015746401), (+1.04738229004959059209693454999959793, +0.484711031952195221636124474602288965), (+1.58704684890846989954145751631480532, +0.443072927678142402508041033623855795E-1), (+1.28340247367685378449879386768244292, +0.733060939009389046075109180867733541E-1), (+1.94799068420491186131774960379576723, +0.910173002766215493451949748912764318), (+1.36987995848240407367763824815551130, +0.364728742875321340876739798764848202), (+1.58222045561153306719785904318748974, +0.415909812307615652932719245642356734), (+1.24885292451171123507083998271384135, +0.425677392595858656909129726919314490E-1), (+1.82608583483309338470885250976278722, +0.849760343730526105698637405133763128), (+1.88675908725009171519042135802764706, +0.998818576105771285341114383897114491), (+1.99949194001567904428201344529284417, +0.151775100796051174711994587486577194), (+1.98986354582744938738451483686469292, +0.732121236389725735174542160901435362), (+1.26262101733307008574060418913238611, +0.744000415833978880807074339455541954), (+1.26624971196215692452250649265127469, +0.245022382650445974001691702984579042), (+1.04517548904315077737345528233141012, +0.724647489750875355038880242687401410), (+1.84924593688405079216934823342171959, +0.566502916265849419997719505117945123), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.722223729145213444895991728469347744E-34), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, +0.433334237487128066937595037081608647E-33), (-0.385185988877447170611195588516985464E-33, -0.722223729145213444895991728469347744E-34), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, -0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, -0.216667118743564033468797518540804323E-33), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, atad(1:size(data)), reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+19

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.10544276, +1.63988554, +1.37025511, +1.55508709, +1.06280804, +1.68075013, +1.90667892, +1.72327089, +1.13321853, +1.76863647, +1.82502079, +1.02208841, +1.58484340, +1.01322925, +1.45151186, +1.92086053, +1.80932689, +1.54453492, +1.61342907

262

263atad = getFFTI(getFFTF(data))

264atad

265+1.10544276, +1.63988566, +1.37025511, +1.55508697, +1.06280780, +1.68074989, +1.90667844, +1.72327065, +1.13321853, +1.76863623, +1.82502079, +1.02208829, +1.58484340, +1.01322889, +1.45151186, +1.92086005, +1.80932689, +1.54453492, +1.61342919, +0.119209290E-6, +0.178813934E-6, +0.596046448E-7, +0.298023224E-6, +0.596046448E-7, -0.178813934E-6, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, +0.00000000, +0.357627869E-6, +0.596046448E-7, +0.298023224E-6

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, atad(1:size(data)), reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+6

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.9955784689400144, +1.1117849875435577, +1.1408630074539705, +1.2924738985276436, +1.9878783758986753, +1.4794869598448945

279

280atad = getFFTI(getFFTF(data))

281atad

282+1.9955784689400149, +1.1117849875435577, +1.1408630074539707, +1.2924738985276436, +1.9878783758986756, +1.4794869598448943, +0.11102230246251565E-15, +0.22204460492503131E-15

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, atad(1:size(data)), reltol = reltol)

287T, T, T, T, T, T

288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+59

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.48509999956646899479794586103932933, +1.60382069072097972686544119018659537, +1.19794449566885299118447515322815476, +1.51624477158246337105781666379781387, +1.66205511363695273309344889331890116, +1.63992529115799463606820596826296576, +1.21725677034956787792047733733096225, +1.18369625272911277862751129286354869, +1.50593187932482823051566832758254631, +1.04768154375787676542344679688065141, +1.28719151084334603264541104321364473, +1.86087869878523203771568125129916047, +1.25186128368883473623247404134755390, +1.48612373694248908758508571144303251, +1.75636849403894630539975010923811147, +1.72239224225378989808699112471187157, +1.15870964407631007399446380039106154, +1.01482732381476938977754545983031139, +1.85460270481982420401584312014437514, +1.79549893133723751458541719567092060, +1.07077232896496541876998669709837960, +1.16665590536705631760701510065804088, +1.85156737200957379191377333993414099, +1.69151133151581974967150998236278698, +1.15513870459446357797217000006835077, +1.09274665898936093258076297896333504, +1.01278413346626343941572259873167961, +1.52661282764437544624920179292833696, +1.33425237617035595968688337679147601, +1.40268873127839114507601450012399968, +1.98340144643569139659528546255149479, +1.59654063272985059714930958479213093, +1.05631080186155361653831213060231592, +1.96999273847880006472585467130994972, +1.19691645559798028397938279297505138, +1.11503762047525791602317430096104756, +1.21638170450715054353641535662660149, +1.82921136952701975439298278642639270, +1.70092935574149097264061164356217381, +1.86416059355141719123847298838333001, +1.29865838543744390521011928076131553, +1.27520050058723828357384611854794758, +1.01787870709186242871402290600605558, +1.63379408451648729452022758431615939, +1.21660869279887045011408695266048044, +1.40548759401893434696327411557654778, +1.27644580562721459011838072148853757, +1.81309341417896450598467975029094843, +1.97134562912209348330213593754983176, +1.14133621493970021418844105612542130, +1.86560292175765385039402046616215175, +1.97193865255070366753203272513104560, +1.72251166162887649980478744384877965, +1.66215310438209379951390402416984790, +1.84607281069572163128640086512599780, +1.92651977651051028562831844135826075, +1.44174599769538961829506778018267081, +1.80169584371472174681352965401974475, +1.07263780944220880430014251023310770

296

297atad = getFFTI(getFFTF(data))

298atad

299+1.48509999956646899479794586103932953, +1.60382069072097972686544119018659557, +1.19794449566885299118447515322815438, +1.51624477158246337105781666379781387, +1.66205511363695273309344889331890116, +1.63992529115799463606820596826296615, +1.21725677034956787792047733733096205, +1.18369625272911277862751129286354888, +1.50593187932482823051566832758254650, +1.04768154375787676542344679688065160, +1.28719151084334603264541104321364473, +1.86087869878523203771568125129916047, +1.25186128368883473623247404134755428, +1.48612373694248908758508571144303270, +1.75636849403894630539975010923811147, +1.72239224225378989808699112471187157, +1.15870964407631007399446380039106192, +1.01482732381476938977754545983031158, +1.85460270481982420401584312014437495, +1.79549893133723751458541719567092041, +1.07077232896496541876998669709837960, +1.16665590536705631760701510065804107, +1.85156737200957379191377333993414080, +1.69151133151581974967150998236278718, +1.15513870459446357797217000006835096, +1.09274665898936093258076297896333542, +1.01278413346626343941572259873167923, +1.52661282764437544624920179292833677, +1.33425237617035595968688337679147582, +1.40268873127839114507601450012399987, +1.98340144643569139659528546255149460, +1.59654063272985059714930958479213093, +1.05631080186155361653831213060231611, +1.96999273847880006472585467130994991, +1.19691645559798028397938279297505099, +1.11503762047525791602317430096104737, +1.21638170450715054353641535662660149, +1.82921136952701975439298278642639309, +1.70092935574149097264061164356217342, +1.86416059355141719123847298838333059, +1.29865838543744390521011928076131573, +1.27520050058723828357384611854794777, +1.01787870709186242871402290600605520, +1.63379408451648729452022758431615920, +1.21660869279887045011408695266048063, +1.40548759401893434696327411557654835, +1.27644580562721459011838072148853757, +1.81309341417896450598467975029094920, +1.97134562912209348330213593754983214, +1.14133621493970021418844105612542149, +1.86560292175765385039402046616215175, +1.97193865255070366753203272513104541, +1.72251166162887649980478744384877965, +1.66215310438209379951390402416984829, +1.84607281069572163128640086512599760, +1.92651977651051028562831844135826113, +1.44174599769538961829506778018267100, +1.80169584371472174681352965401974513, +1.07263780944220880430014251023310770, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, atad(1:size(data)), reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+31

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.82291758, +0.284401953), (+1.74375200, +0.712040663), (+1.37531567, +0.582466304), (+1.21648312, +0.238807738), (+1.00155735, +0.624431491), (+1.49022508, +0.220416069), (+1.31041121, +0.312765658), (+1.68925154, +0.605916560), (+1.51480222, +0.720656753), (+1.14610517, +0.930423737), (+1.53249192, +0.796494663), (+1.31510258, +0.100906670), (+1.01422334, +0.178833544), (+1.13241267, +0.370507836E-1), (+1.21797717, +0.121069610), (+1.90463066, +0.863764942), (+1.75318480, +0.440681934), (+1.82395124, +0.297518253), (+1.01908994, +0.509236634), (+1.52593899, +0.538332641), (+1.93806422, +0.301073670), (+1.57609570, +0.606959581), (+1.11335301, +0.202006638), (+1.55265701, +0.335428357), (+1.98580027, +0.269525945), (+1.34870791, +0.910372496), (+1.28082716, +0.455290556), (+1.40967131, +0.973931789), (+1.09737706, +0.822551489), (+1.11776280, +0.471113622), (+1.08328068, +0.207836628)

313

314atad = getFFTI(getFFTF(data))

315atad

316(+1.82291758, +0.284401894), (+1.74375200, +0.712040603), (+1.37531555, +0.582466304), (+1.21648312, +0.238807827), (+1.00155735, +0.624431431), (+1.49022532, +0.220416024), (+1.31041121, +0.312765658), (+1.68925154, +0.605916560), (+1.51480210, +0.720656753), (+1.14610517, +0.930423677), (+1.53249192, +0.796494722), (+1.31510258, +0.100906610), (+1.01422334, +0.178833604), (+1.13241279, +0.370508730E-1), (+1.21797729, +0.121069610), (+1.90463042, +0.863764942), (+1.75318468, +0.440681934), (+1.82395124, +0.297518194), (+1.01908982, +0.509236634), (+1.52593899, +0.538332582), (+1.93806386, +0.301073730), (+1.57609582, +0.606959522), (+1.11335301, +0.202006638), (+1.55265701, +0.335428298), (+1.98580015, +0.269525886), (+1.34870780, +0.910372436), (+1.28082728, +0.455290586), (+1.40967131, +0.973931789), (+1.09737682, +0.822551370), (+1.11776292, +0.471113652), (+1.08328080, +0.207836628), (+0.238418579E-6, +0.596046448E-7)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, atad(1:size(data)), reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+84

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.8781747139385923, +0.93484506338369344), (+1.1055938359772963, +0.79498700854362947), (+1.6058819497107384, +0.38879088534204076), (+1.7891856596308411, +0.19056360381095272), (+1.4073503745183720, +0.59469057717592022), (+1.0479101806665723, +0.66250997643949927), (+1.7945261086376347, +0.56033969748922818), (+1.7890024046336155, +0.16309054138984469), (+1.6817476541565082, +0.31878523045526053), (+1.5508860109595690, +0.37135352310267500), (+1.9588358167197635, +0.50874699490819364), (+1.2896264866512044, +0.37085056409043027E-2), (+1.5274563824917760, +0.72508280695626104), (+1.1637420953830604, +0.83773236801115591), (+1.3943980936697238, +0.90514674374633874), (+1.3028889781551083, +0.54734018939022744E-1), (+1.6501785211151194, +0.69396752812299978), (+1.6795112738388416, +0.66422043652825546), (+1.9985482044989151, +0.62493214477453518), (+1.9531766427962460, +0.61019044018633639), (+1.9089820020738149, +0.94428379868887491), (+1.2701042988010203, +0.66636424169956154), (+1.1777798379644069, +0.54938116539548443), (+1.3124490490963376, +0.77658980431802982), (+1.6320552118469309, +0.88370601984732988), (+1.6639108849002953, +0.81265114064589461), (+1.3021842014492901, +0.24843323353522984), (+1.8412103430463573, +0.83129054413169690), (+1.7095281493065944, +0.56369111910257175), (+1.5627795270268641, +0.83992152352484273), (+1.6269423830799261, +0.59748607800407361E-1), (+1.7418123886045365, +0.32122917844227172), (+1.2122817104101937, +0.29767246844629558), (+1.6230509052979434, +0.45553941510352314), (+1.4874002057000237, +0.74259066656414074), (+1.9477223489201498, +0.81732008415739232), (+1.0666557885347872, +0.26530409539610911), (+1.8461491296175803, +0.30185721732577775), (+1.1293426972581764, +0.48264018533025199), (+1.4457094056755986, +0.81022216099060751), (+1.6559412854952518, +0.52826973985684023), (+1.6123014619733751, +0.81028254912577369E-2), (+1.4373193051027509, +0.26834478078111701), (+1.6635669739215464, +0.12340290295345691), (+1.8767688998087997, +0.98102960388525617E-1), (+1.9123684249549093, +0.96644149878889674), (+1.0114434916738317, +0.53678831946656136), (+1.3080123634773502, +0.89087086412690208), (+1.2791153524163850, +0.81182118301016837), (+1.3411150361346451, +0.49441422146168312), (+1.2678359115972411, +0.43377982133763437), (+1.2768460709594713, +0.31276310927922224), (+1.4389584133731352, +0.25867836696754243), (+1.2036504875264624, +0.52873104701176232), (+1.4167678861398025, +0.63307301415920625), (+1.7861853669003414, +0.56572962927862336), (+1.9172247471742119, +0.48619556295817790), (+1.4599696102655451, +0.43004652951976752E-2), (+1.2216518825044536, +0.22773999014641955), (+1.1503378769393162, +0.43187789035554425E-1), (+1.6940259202164767, +0.97393596278573824), (+1.0905290780820422, +0.67319816525076992), (+1.3639895236477189, +0.45937056860761571), (+1.9356237053374001, +0.49194289683499881), (+1.6261835385823580, +0.38359514640969983E-1), (+1.6747317312059655, +0.22613297552872158), (+1.4595834134433239, +0.77861142009731765), (+1.3358225716329868, +0.99611900288267075), (+1.5640062626320250, +0.17508232936583024), (+1.4893285575411546, +0.25088890081154114E-1), (+1.0027797700404699, +0.34299002715285043), (+1.4017817422750718, +0.28878356099253710), (+1.4891835027521416, +0.99135431148162922), (+1.8848861690377694, +0.28328930833853538), (+1.7989727982591976, +0.99970342949188595), (+1.8442672837811027, +0.82071141928901936), (+1.9860552628347596, +0.19968310169901549), (+1.9583660569993255, +0.18993865525355980), (+1.9939120769375203, +0.26610717179541432), (+1.7354384745922313, +0.14502152050059791), (+1.1217153525556518, +0.48803077347606427), (+1.4091447664719148, +0.98791210582452538), (+1.8119377696428716, +0.88709788154290381), (+1.7683754529742983, +0.60062463322072812)

330

331atad = getFFTI(getFFTF(data))

332atad

333(+1.8781747139385920, +0.93484506338369355), (+1.1055938359772968, +0.79498700854362969), (+1.6058819497107382, +0.38879088534204087), (+1.7891856596308413, +0.19056360381095311), (+1.4073503745183717, +0.59469057717592011), (+1.0479101806665723, +0.66250997643949949), (+1.7945261086376345, +0.56033969748922818), (+1.7890024046336155, +0.16309054138984516), (+1.6817476541565084, +0.31878523045526075), (+1.5508860109595692, +0.37135352310267533), (+1.9588358167197630, +0.50874699490819375), (+1.2896264866512042, +0.37085056409049133E-2), (+1.5274563824917755, +0.72508280695626137), (+1.1637420953830602, +0.83773236801115636), (+1.3943980936697238, +0.90514674374633874), (+1.3028889781551085, +0.54734018939023465E-1), (+1.6501785211151194, +0.69396752812299989), (+1.6795112738388416, +0.66422043652825580), (+1.9985482044989147, +0.62493214477453507), (+1.9531766427962456, +0.61019044018633672), (+1.9089820020738144, +0.94428379868887458), (+1.2701042988010198, +0.66636424169956177), (+1.1777798379644067, +0.54938116539548409), (+1.3124490490963372, +0.77658980431802971), (+1.6320552118469309, +0.88370601984732966), (+1.6639108849002953, +0.81265114064589472), (+1.3021842014492901, +0.24843323353522928), (+1.8412103430463569, +0.83129054413169712), (+1.7095281493065939, +0.56369111910257175), (+1.5627795270268634, +0.83992152352484295), (+1.6269423830799257, +0.59748607800407173E-1), (+1.7418123886045360, +0.32122917844227195), (+1.2122817104101937, +0.29767246844629530), (+1.6230509052979434, +0.45553941510352314), (+1.4874002057000240, +0.74259066656414019), (+1.9477223489201494, +0.81732008415739221), (+1.0666557885347867, +0.26530409539610883), (+1.8461491296175798, +0.30185721732577764), (+1.1293426972581764, +0.48264018533025155), (+1.4457094056755984, +0.81022216099060684), (+1.6559412854952518, +0.52826973985684000), (+1.6123014619733751, +0.81028254912575981E-2), (+1.4373193051027504, +0.26834478078111651), (+1.6635669739215460, +0.12340290295345693), (+1.8767688998087992, +0.98102960388525395E-1), (+1.9123684249549089, +0.96644149878889629), (+1.0114434916738313, +0.53678831946656091), (+1.3080123634773497, +0.89087086412690142), (+1.2791153524163850, +0.81182118301016826), (+1.3411150361346453, +0.49441422146168268), (+1.2678359115972411, +0.43377982133763410), (+1.2768460709594709, +0.31276310927922202), (+1.4389584133731348, +0.25867836696754221), (+1.2036504875264624, +0.52873104701176166), (+1.4167678861398023, +0.63307301415920558), (+1.7861853669003409, +0.56572962927862247), (+1.9172247471742117, +0.48619556295817778), (+1.4599696102655453, +0.43004652951973144E-2), (+1.2216518825044531, +0.22773999014641944), (+1.1503378769393160, +0.43187789035554161E-1), (+1.6940259202164765, +0.97393596278573791), (+1.0905290780820422, +0.67319816525076948), (+1.3639895236477186, +0.45937056860761549), (+1.9356237053373997, +0.49194289683499826), (+1.6261835385823578, +0.38359514640970094E-1), (+1.6747317312059657, +0.22613297552872152), (+1.4595834134433234, +0.77861142009731787), (+1.3358225716329866, +0.99611900288267075), (+1.5640062626320248, +0.17508232936583032), (+1.4893285575411546, +0.25088890081154058E-1), (+1.0027797700404697, +0.34299002715285043), (+1.4017817422750718, +0.28878356099253710), (+1.4891835027521416, +0.99135431148162922), (+1.8848861690377696, +0.28328930833853561), (+1.7989727982591970, +0.99970342949188606), (+1.8442672837811023, +0.82071141928901925), (+1.9860552628347592, +0.19968310169901521), (+1.9583660569993251, +0.18993865525355963), (+1.9939120769375198, +0.26610717179541421), (+1.7354384745922313, +0.14502152050059752), (+1.1217153525556522, +0.48803077347606422), (+1.4091447664719143, +0.98791210582452504), (+1.8119377696428711, +0.88709788154290359), (+1.7683754529742979, +0.60062463322072790), (+0.11102230246251565E-15, +0.16653345369377348E-15), (-0.22204460492503131E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, -0.27755575615628914E-15), (+0.44408920985006262E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.38857805861880479E-15), (-0.11102230246251565E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, -0.62450045135165055E-16), (+0.55511151231257827E-15, -0.36082248300317588E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.33306690738754696E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.30531133177191805E-15), (-0.11102230246251565E-15, +0.13877787807814457E-15), (+0.0000000000000000, +0.38857805861880479E-15), (-0.11102230246251565E-15, +0.0000000000000000), (+0.33306690738754696E-15, -0.27755575615628914E-16), (-0.44408920985006262E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.27755575615628914E-16), (+0.0000000000000000, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, -0.83266726846886741E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.47184478546569153E-15), (-0.11102230246251565E-15, +0.44408920985006262E-15), (-0.22204460492503131E-15, +0.72164496600635175E-15), (+0.77715611723760958E-15, +0.99920072216264089E-15), (+0.66613381477509392E-15, +0.61062266354383610E-15), (+0.77715611723760958E-15, -0.27755575615628914E-16), (+0.33306690738754696E-15, +0.40245584642661925E-15), (+0.66613381477509392E-15, +0.26367796834847468E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.22204460492503131E-15, +0.72164496600635175E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.88817841970012523E-15, +0.10269562977782698E-14)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, atad(1:size(data)), reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+31

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.63247446457956965726494951005120281, +0.336997566252470444694316529610535672), (+1.20155283617035476768837974206657470, +0.292604448735281574306261457331131625), (+1.12715041830804442088635299766944737, +0.923568219171962230441552035982080934), (+1.44841840406885454622060101239127851, +0.138041934655007067812414312151702420), (+1.79055793906213319705429895401355646, +0.112068946116575380243638188056731569), (+1.32374050820342293444324044726584737, +0.168571917664616056165624264534649094), (+1.32275629791135866928839567690894887, +0.767891101172349804594733777397261751), (+1.40658077760846431666916196146525156, +0.128588415217095112445968193948884589), (+1.91165439290081316603681492619680906, +0.350583421989397832236657175423982042), (+1.64676123031120831007736392674373894, +0.980686275198704366372251038262427382), (+1.04224816360201623941074655302234890, +0.213794598124385544397729729776628339E-1), (+1.03194037273881262946955427315412706, +0.482947402800805780857389923418909856), (+1.67155440053657282803076611030533619, +0.170473156650627089314181723398192592), (+1.29981797128908268822512672464728276, +0.104216664003323805603713062178873911E-1), (+1.48692975484946834488671269133616904, +0.543712312699387586708599662771728934), (+1.10221541875271009573804701408300445, +0.705251984319056042808739943958966381), (+1.36637321735355855759988954167584759, +0.610873609414676056815951138511713499), (+1.54139107839724615587570224805065385, +0.902440273547924674547837253174741322E-1), (+1.37322412885006251449391616461150205, +0.204782853237436001506635315158023821), (+1.81195395499093181641737832177337764, +0.292924663721354360189421419474442845), (+1.58214857719947300774783760436742507, +0.261226670099495075348626801227577560E-2), (+1.31748156505115247855157339539414863, +0.693306745899975518375131724578851406), (+1.33584413391531511235924056623158503, +0.298179763347707023530507747787214992E-2), (+1.95172617879751364188695828788265690, +0.870792562599915163543145373735520118E-1), (+1.17355501628524842048153846435620532, +0.500506764262555756517601003662052301), (+1.30640171418399068872033334825899330, +0.438422964714036695739231777478105012), (+1.88873201109022030968290406429221568, +0.469242619376967547468924835664452499), (+1.78024420482217779352943098231917938, +0.622358020977351337161864241070595488), (+1.49086040309550365859687619399832928, +0.946215038583324322115795107269882296), (+1.06367702391046309382920436350869988, +0.220442287915750038865032615347324075), (+1.67518670051551396209440473745272966, +0.281692960129841838843862368992623933)

347

348atad = getFFTI(getFFTF(data))

349atad

350(+1.63247446457956965726494951005120300, +0.336997566252470444694316529610535768), (+1.20155283617035476768837974206657431, +0.292604448735281574306261457331131577), (+1.12715041830804442088635299766944699, +0.923568219171962230441552035982081127), (+1.44841840406885454622060101239127851, +0.138041934655007067812414312151702324), (+1.79055793906213319705429895401355627, +0.112068946116575380243638188056731618), (+1.32374050820342293444324044726584737, +0.168571917664616056165624264534649046), (+1.32275629791135866928839567690894868, +0.767891101172349804594733777397261847), (+1.40658077760846431666916196146525156, +0.128588415217095112445968193948884251), (+1.91165439290081316603681492619680925, +0.350583421989397832236657175423982138), (+1.64676123031120831007736392674373855, +0.980686275198704366372251038262427189), (+1.04224816360201623941074655302234871, +0.213794598124385544397729729776625210E-1), (+1.03194037273881262946955427315412706, +0.482947402800805780857389923418909856), (+1.67155440053657282803076611030533599, +0.170473156650627089314181723398192736), (+1.29981797128908268822512672464728276, +0.104216664003323805603713062178873670E-1), (+1.48692975484946834488671269133616885, +0.543712312699387586708599662771728934), (+1.10221541875271009573804701408300406, +0.705251984319056042808739943958966574), (+1.36637321735355855759988954167584779, +0.610873609414676056815951138511713499), (+1.54139107839724615587570224805065366, +0.902440273547924674547837253174740840E-1), (+1.37322412885006251449391616461150205, +0.204782853237436001506635315158023628), (+1.81195395499093181641737832177337764, +0.292924663721354360189421419474442701), (+1.58214857719947300774783760436742507, +0.261226670099495075348626801227582375E-2), (+1.31748156505115247855157339539414863, +0.693306745899975518375131724578851310), (+1.33584413391531511235924056623158484, +0.298179763347707023530507747787205362E-2), (+1.95172617879751364188695828788265729, +0.870792562599915163543145373735519757E-1), (+1.17355501628524842048153846435620552, +0.500506764262555756517601003662052301), (+1.30640171418399068872033334825899311, +0.438422964714036695739231777478105012), (+1.88873201109022030968290406429221549, +0.469242619376967547468924835664452595), (+1.78024420482217779352943098231917938, +0.622358020977351337161864241070595584), (+1.49086040309550365859687619399832928, +0.946215038583324322115795107269882392), (+1.06367702391046309382920436350869988, +0.220442287915750038865032615347323954), (+1.67518670051551396209440473745272966, +0.281692960129841838843862368992624030), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, atad(1:size(data)), reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+10

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.99711800, +1.63331008, +1.62455475, +1.01399946, +1.04594207, +1.47750282, +1.25006342, +1.31347430, +1.08257234, +1.31828821

364

365atad = getFFTI(getFFTF(data))

366atad

367+1.99711800, +1.63330996, +1.62455463, +1.01399934, +1.04594207, +1.47750258, +1.25006318, +1.31347394, +1.08257246, +1.31828821, +0.00000000, +0.238418579E-6, -0.119209290E-6, +0.298023224E-6, +0.596046448E-7, +0.178813934E-6

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, atad(1:size(data)), reltol = reltol)

372T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+83

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.2278740381290538, +1.2697586042524338, +1.6620745615104489, +1.0329904856715362, +1.1347905830512381, +1.3475030494979472, +1.0026954169401918, +1.1057620208065282, +1.4191112424890990, +1.7837311326657186, +1.9960920428225521, +1.3552926804874317, +1.2758275219344508, +1.2902398466093632, +1.5901075003091325, +1.7160432477241159, +1.1286576030581446, +1.3110736303583597, +1.7288533227720539, +1.1037860987044263, +1.7197658241234430, +1.9557448126495023, +1.1324111469478897, +1.7893598633357048, +1.7270280395200004, +1.4027673048865843, +1.6443256564470934, +1.7413023590688479, +1.0176854164693561, +1.6870508178359294, +1.1944631424368084, +1.7040212822240210, +1.5372638560322285, +1.7719150467458373, +1.3594559081701671, +1.9619711372885167, +1.0830517876112107, +1.5928885303203977, +1.0364076109403773, +1.9901441248618603, +1.4178027017801282, +1.5291341022296141, +1.6744353092316580, +1.1860525835392473, +1.6645789257507360, +1.2770810739775911, +1.5981921010428011, +1.5709362062950876, +1.4080280158683809, +1.9121382717065156, +1.3385025935934896, +1.7978497430576799, +1.2654040621007350, +1.3182564690096936, +1.3957667459487770, +1.2085087574996654, +1.6871244210337260, +1.1561882752138661, +1.8010566982035050, +1.4592403200518840, +1.4939999867756280, +1.2679148153281345, +1.2824842058126951, +1.5617770594790246, +1.2831987976972714, +1.4076162814217386, +1.1633849210137444, +1.4527245907901625, +1.3377038058197050, +1.8114006186395233, +1.8688421310247532, +1.0895344737862342, +1.9554555434977337, +1.6320970956527183, +1.3440736911506268, +1.4927969946365380, +1.1066829744349937, +1.3028823102651772, +1.2559625023043888, +1.8618707317061620, +1.0772868721871034, +1.2385223372646510, +1.0036379894312146

381

382atad = getFFTI(getFFTF(data))

383atad

384+1.2278740381290540, +1.2697586042524343, +1.6620745615104491, +1.0329904856715364, +1.1347905830512379, +1.3475030494979470, +1.0026954169401912, +1.1057620208065284, +1.4191112424890995, +1.7837311326657190, +1.9960920428225521, +1.3552926804874323, +1.2758275219344501, +1.2902398466093632, +1.5901075003091316, +1.7160432477241159, +1.1286576030581448, +1.3110736303583603, +1.7288533227720535, +1.1037860987044266, +1.7197658241234426, +1.9557448126495016, +1.1324111469478890, +1.7893598633357048, +1.7270280395200004, +1.4027673048865845, +1.6443256564470929, +1.7413023590688481, +1.0176854164693556, +1.6870508178359291, +1.1944631424368075, +1.7040212822240210, +1.5372638560322289, +1.7719150467458371, +1.3594559081701669, +1.9619711372885162, +1.0830517876112111, +1.5928885303203970, +1.0364076109403770, +1.9901441248618601, +1.4178027017801285, +1.5291341022296141, +1.6744353092316582, +1.1860525835392473, +1.6645789257507357, +1.2770810739775906, +1.5981921010428013, +1.5709362062950873, +1.4080280158683813, +1.9121382717065156, +1.3385025935934898, +1.7978497430576796, +1.2654040621007352, +1.3182564690096925, +1.3957667459487770, +1.2085087574996649, +1.6871244210337260, +1.1561882752138659, +1.8010566982035052, +1.4592403200518835, +1.4939999867756282, +1.2679148153281341, +1.2824842058126951, +1.5617770594790241, +1.2831987976972714, +1.4076162814217388, +1.1633849210137444, +1.4527245907901623, +1.3377038058197057, +1.8114006186395224, +1.8688421310247529, +1.0895344737862338, +1.9554555434977337, +1.6320970956527188, +1.3440736911506268, +1.4927969946365385, +1.1066829744349940, +1.3028823102651770, +1.2559625023043890, +1.8618707317061616, +1.0772868721871038, +1.2385223372646512, +1.0036379894312146, -0.22204460492503131E-15, +0.77715611723760958E-15, +0.0000000000000000, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, -0.55511151231257827E-15, +0.88817841970012523E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.88817841970012523E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.11102230246251565E-14, +0.0000000000000000, +0.99920072216264089E-15, +0.88817841970012523E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.12212453270876722E-14, -0.33306690738754696E-15, +0.11102230246251565E-14

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, atad(1:size(data)), reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+56

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.55348779862453220597695533201307161, +1.73518139265114096435347621235284376, +1.37522722336252270944326993684551277, +1.01560114837338348472694029456463856, +1.52625819507793823169066582393646499, +1.99792114626687607971400379615982699, +1.06044795213149541490292866501302157, +1.52890866851752573577566341931407232, +1.61744403259877105627835043314838914, +1.83904441751788843096025710430064061, +1.61182290841275495509732997394945268, +1.34757553192048748319987928293689093, +1.11786022306540407708250999541395702, +1.87903634006870159524667912922520162, +1.42814695815200564499091902096034079, +1.25966479021337783159041376490814930, +1.28109006926457357033914707040209198, +1.84753745756125217713203022956266405, +1.37684616900708559538477586302349968, +1.12064550394902211475405416915877551, +1.94017617369771451720241078961812944, +1.73183448756117932916103951900506790, +1.88564416633736669673702549756646178, +1.99423265616236951046385224637950368, +1.70510394116108025091975086188810070, +1.43222704854047421190888227000307873, +1.59651938347918178815855539631043773, +1.83652406726820005704879089319727387, +1.06132965628498017135031932710461583, +1.37702994921540602572051884507669261, +1.34428159533186840495237753551527499, +1.60324261308829515106488405156352121, +1.13717477651123818519848586228151946, +1.47342671438372735385696922626009403, +1.25737774656944021569850487418673223, +1.30595208014689084853720231271342337, +1.81894535965216146433436725008390705, +1.85405391765964537868111549105722823, +1.10030215716719582912072221567824739, +1.25904081433164909035642057044764651, +1.56530576714595971321100158206449293, +1.20526229348195949907513873289967347, +1.77795320764661198199974509770414303, +1.64730579782381494174406725768493241, +1.67953731962767155083168935719503719, +1.26356619708676791320542962176406564, +1.32005945048533254255312161521005429, +1.17937368661530938909869695855649522, +1.42351947962824492165513324727975484, +1.60868265429204518056440054973777335, +1.66872016514510552009814491090276159, +1.02332158198825744892444081951761166, +1.96726596895749326434200317193776365, +1.20239909211889592169646561547114555, +1.13254306936499626811966269789277420, +1.81367046886010912546411930070684864

398

399atad = getFFTI(getFFTF(data))

400atad

401+1.55348779862453220597695533201307219, +1.73518139265114096435347621235284376, +1.37522722336252270944326993684551296, +1.01560114837338348472694029456463875, +1.52625819507793823169066582393646556, +1.99792114626687607971400379615982719, +1.06044795213149541490292866501302195, +1.52890866851752573577566341931407213, +1.61744403259877105627835043314838991, +1.83904441751788843096025710430064099, +1.61182290841275495509732997394945287, +1.34757553192048748319987928293689112, +1.11786022306540407708250999541395760, +1.87903634006870159524667912922520162, +1.42814695815200564499091902096034137, +1.25966479021337783159041376490814930, +1.28109006926457357033914707040209237, +1.84753745756125217713203022956266424, +1.37684616900708559538477586302349987, +1.12064550394902211475405416915877551, +1.94017617369771451720241078961812983, +1.73183448756117932916103951900506771, +1.88564416633736669673702549756646217, +1.99423265616236951046385224637950368, +1.70510394116108025091975086188810128, +1.43222704854047421190888227000307892, +1.59651938347918178815855539631043773, +1.83652406726820005704879089319727368, +1.06132965628498017135031932710461583, +1.37702994921540602572051884507669261, +1.34428159533186840495237753551527518, +1.60324261308829515106488405156352140, +1.13717477651123818519848586228151984, +1.47342671438372735385696922626009384, +1.25737774656944021569850487418673243, +1.30595208014689084853720231271342318, +1.81894535965216146433436725008390743, +1.85405391765964537868111549105722842, +1.10030215716719582912072221567824778, +1.25904081433164909035642057044764632, +1.56530576714595971321100158206449370, +1.20526229348195949907513873289967386, +1.77795320764661198199974509770414322, +1.64730579782381494174406725768493260, +1.67953731962767155083168935719503738, +1.26356619708676791320542962176406584, +1.32005945048533254255312161521005468, +1.17937368661530938909869695855649580, +1.42351947962824492165513324727975503, +1.60868265429204518056440054973777354, +1.66872016514510552009814491090276198, +1.02332158198825744892444081951761166, +1.96726596895749326434200317193776403, +1.20239909211889592169646561547114555, +1.13254306936499626811966269789277478, +1.81367046886010912546411930070684825, +0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, atad(1:size(data)), reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+96

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.34734464, +0.737603784), (+1.60624528, +0.930123925E-1), (+1.39627719, +0.819180846), (+1.30925345, +0.259266734), (+1.48314905, +0.831555367), (+1.12905359, +0.925232768E-1), (+1.69747186, +0.966852188), (+1.31965327, +0.640515268), (+1.96378875, +0.537491858), (+1.90417957, +0.484696865), (+1.36284757, +0.731949449), (+1.63763785, +0.960431993), (+1.23721004, +0.721995711), (+1.83637440, +0.574132383), (+1.81072748, +0.445560157), (+1.80176365, +0.140717566), (+1.77958071, +0.745826781), (+1.75274372, +0.572229624), (+1.06677544, +0.521740854), (+1.72194886, +0.552061081), (+1.14262247, +0.216336131), (+1.86514020, +0.946073413), (+1.37383556, +0.831039608), (+1.02006400, +0.267374635), (+1.19395971, +0.990724266), (+1.60161579, +0.112084150), (+1.91998720, +0.468055308), (+1.76347327, +0.509964943), (+1.94002104, +0.208268166E-1), (+1.18523812, +0.233130991), (+1.69953859, +0.656510830), (+1.58474422, +0.338016391), (+1.25728893, +0.127216578E-1), (+1.08503604, +0.744536579), (+1.86682153, +0.676938891E-1), (+1.62423122, +0.100284934), (+1.04146290, +0.210439563E-1), (+1.39739895, +0.909833312), (+1.61936414, +0.747697771), (+1.16101599, +0.786921442), (+1.39497185, +0.769187987), (+1.21163225, +0.311878383), (+1.99176049, +0.256391406), (+1.61240840, +0.948663533), (+1.66310430, +0.705878198), (+1.38636565, +0.216037750), (+1.95835876, +0.831998110), (+1.48999834, +0.894694209), (+1.24623144, +0.568363130), (+1.59573030, +0.296555758), (+1.11274505, +0.176272810), (+1.67896414, +0.517097652), (+1.54325187, +0.148564577E-1), (+1.44311643, +0.711105764), (+1.29166377, +0.398172319), (+1.47611809, +0.966393948E-1), (+1.15878558, +0.868595839E-1), (+1.51525259, +0.849275649), (+1.76368880, +0.314198256), (+1.34589291, +0.651344955), (+1.14257884, +0.213392496), (+1.70218778, +0.666126728), (+1.27314794, +0.666390240), (+1.18956184, +0.249819577), (+1.37049496, +0.221899748E-1), (+1.80027103, +0.695056617), (+1.76859641, +0.631027400), (+1.59298766, +0.247904539), (+1.60487103, +0.606871009), (+1.05214369, +0.878571272E-1), (+1.15028644, +0.567712486), (+1.47641730, +0.187635005), (+1.61882043, +0.290245712), (+1.40417540, +0.495590568E-1), (+1.27764606, +0.663073242), (+1.27843070, +0.753473878), (+1.00849986, +0.116707802), (+1.65918076, +0.359532237), (+1.77187991, +0.969425797), (+1.18591285, +0.506640673), (+1.23618376, +0.156099796), (+1.25682867, +0.307141006), (+1.91963565, +0.794877589), (+1.65618026, +0.391653180), (+1.91835749, +0.140774190), (+1.08767247, +0.819432557), (+1.40630603, +0.483461618E-1), (+1.77915215, +0.729930222), (+1.64374089, +0.533862174), (+1.94744205, +0.272182703), (+1.03831673, +0.239711881), (+1.46297276, +0.398485124), (+1.19363332, +0.627735019), (+1.86741424, +0.460899115), (+1.54750419, +0.966052115), (+1.83919096, +0.350208819)

415

416atad = getFFTI(getFFTF(data))

417atad

418(+1.34734464, +0.737603724), (+1.60624552, +0.930126309E-1), (+1.39627683, +0.819180906), (+1.30925322, +0.259266675), (+1.48314881, +0.831555128), (+1.12905347, +0.925232172E-1), (+1.69747162, +0.966852188), (+1.31965327, +0.640515208), (+1.96378875, +0.537491858), (+1.90417969, +0.484696984), (+1.36284745, +0.731949389), (+1.63763762, +0.960431933), (+1.23720992, +0.721995771), (+1.83637440, +0.574132383), (+1.81072772, +0.445560247), (+1.80176377, +0.140717745), (+1.77958047, +0.745826960), (+1.75274372, +0.572229624), (+1.06677520, +0.521740973), (+1.72194862, +0.552060962), (+1.14262223, +0.216336176), (+1.86514020, +0.946073353), (+1.37383556, +0.831039667), (+1.02006412, +0.267374605), (+1.19395971, +0.990724444), (+1.60161602, +0.112084284), (+1.91998684, +0.468055487), (+1.76347315, +0.509965003), (+1.94002080, +0.208270848E-1), (+1.18523824, +0.233131021), (+1.69953847, +0.656511068), (+1.58474410, +0.338016540), (+1.25728893, +0.127215665E-1), (+1.08503604, +0.744536340), (+1.86682129, +0.676937625E-1), (+1.62423134, +0.100284733), (+1.04146290, +0.210439116E-1), (+1.39739895, +0.909833193), (+1.61936414, +0.747697592), (+1.16101623, +0.786921322), (+1.39497185, +0.769187927), (+1.21163249, +0.311878324), (+1.99176037, +0.256391376), (+1.61240828, +0.948663354), (+1.66310406, +0.705878019), (+1.38636589, +0.216037661), (+1.95835900, +0.831998050), (+1.48999810, +0.894694328), (+1.24623132, +0.568362951), (+1.59573042, +0.296555638), (+1.11274517, +0.176272914), (+1.67896414, +0.517097652), (+1.54325175, +0.148564577E-1), (+1.44311666, +0.711105764), (+1.29166389, +0.398172319), (+1.47611833, +0.966395885E-1), (+1.15878582, +0.868594944E-1), (+1.51525247, +0.849275589), (+1.76368856, +0.314198226), (+1.34589279, +0.651344895), (+1.14257884, +0.213392407), (+1.70218778, +0.666126609), (+1.27314830, +0.666390181), (+1.18956184, +0.249819547), (+1.37049484, +0.221900344E-1), (+1.80027103, +0.695056617), (+1.76859653, +0.631027162), (+1.59298754, +0.247904465), (+1.60487103, +0.606871009), (+1.05214369, +0.878571272E-1), (+1.15028667, +0.567712545), (+1.47641730, +0.187634960), (+1.61882043, +0.290245831), (+1.40417540, +0.495591164E-1), (+1.27764595, +0.663073242), (+1.27843046, +0.753473878), (+1.00849974, +0.116707861), (+1.65918100, +0.359532207), (+1.77188003, +0.969425797), (+1.18591285, +0.506640673), (+1.23618352, +0.156099766), (+1.25682878, +0.307141066), (+1.91963542, +0.794877350), (+1.65617990, +0.391653180), (+1.91835713, +0.140774146), (+1.08767247, +0.819432557), (+1.40630603, +0.483460128E-1), (+1.77915215, +0.729930043), (+1.64374065, +0.533862233), (+1.94744194, +0.272182822), (+1.03831637, +0.239711761), (+1.46297252, +0.398485214), (+1.19363308, +0.627735019), (+1.86741412, +0.460899204), (+1.54750419, +0.966051817), (+1.83919084, +0.350208849), (-0.178813934E-6, +0.311993062E-7), (+0.596046448E-7, -0.596046448E-7), (+0.178813934E-6, +0.186264515E-6), (+0.596046448E-7, +0.186264515E-6), (+0.596046448E-7, +0.223517418E-6), (+0.298023224E-6, +0.238418579E-6), (+0.119209290E-6, +0.566244125E-6), (+0.357627869E-6, +0.178813934E-6), (-0.596046448E-7, +0.00000000), (+0.596046448E-7, -0.253319740E-6), (-0.119209290E-6, +0.894069672E-7), (-0.119209290E-6, +0.894069672E-7), (-0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, -0.149011612E-6), (+0.238418579E-6, +0.178813934E-6), (-0.178813934E-6, +0.00000000), (-0.596046448E-7, +0.298023224E-7), (+0.357627869E-6, +0.447034836E-7), (+0.119209290E-6, +0.193715096E-6), (+0.00000000, +0.178813934E-6), (+0.178813934E-6, +0.596046448E-7), (+0.417232513E-6, +0.178813934E-6), (+0.00000000, +0.372529030E-6), (+0.178813934E-6, +0.223517418E-6), (+0.298023224E-6, -0.208616257E-6), (+0.238418579E-6, -0.208616257E-6), (-0.178813934E-6, +0.298023224E-7), (+0.238418579E-6, +0.298023224E-7), (+0.596046448E-7, -0.156462193E-6), (+0.238418579E-6, -0.298023224E-7), (+0.178813934E-6, +0.00000000), (+0.596046448E-7, -0.670552254E-7)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, atad(1:size(data)), reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+80

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.4603213433534963, +0.92380647502438640), (+1.4380878513336706, +0.60332496468705121), (+1.7428218324234428, +0.90337800457328199E-1), (+1.0017741322239053, +0.31276625356940424), (+1.8369649305791100, +0.67431977736234938), (+1.6301227294326717, +0.78412398248425241), (+1.8717559029065729, +0.48470077941680423), (+1.8776178657805052, +0.74930780207322423), (+1.2253435375205417, +0.86411145470481965), (+1.7473521226957520, +0.90717712958516672), (+1.6591903331867226, +0.50553705842052543), (+1.3605257876691432, +0.86141994724283755), (+1.1497498817764118, +0.19351164609889060E-1), (+1.6963412544963259, +0.24341681854829267), (+1.3249873826785692, +0.96160721834571872), (+1.4651815443094889, +0.27937990075983654), (+1.7040420575216690, +0.58546496506681434), (+1.5778210979971752, +0.29167531592269058), (+1.7346687165397077, +0.55506995412883664), (+1.0614911420722937, +0.47715735749193600), (+1.5700058118075375, +0.38832159971185543), (+1.5252512023633060, +0.79371544489318835), (+1.3923391400305967, +0.52259786325689095), (+1.7084756582333418, +0.38116817696904171), (+1.2883437766482899, +0.15256981567994143), (+1.3431090634037119, +0.14532917940349144), (+1.7221116459724777, +0.15864863842459931), (+1.9060019909801682, +0.27750574733832545), (+1.6263780465740831, +0.41416100628539010), (+1.7098123038806337, +0.66699755351399781), (+1.0147884093154280, +0.17272202827819660), (+1.0872016272790805, +0.53871585970678115), (+1.4532447619729774, +0.22927642867299891), (+1.8254765773961430, +0.83576884951771313), (+1.1961345433999069, +0.95620733604229491), (+1.8941281819113054, +0.30235265802686873), (+1.5185206016653403, +0.94967123075961035), (+1.1997672373442507, +0.45742122208914604), (+1.4876461773790808, +0.46606565750397377), (+1.0958179536433739, +0.16899526729051195), (+1.0997418096698897, +0.34185080428177428), (+1.9998284832426010, +0.70379031304024120E-1), (+1.8219720017605741, +0.35286573420995970), (+1.4949567074327290, +0.10611785996665524), (+1.4233564629662969, +0.74973225460658921), (+1.9715289598813892, +0.62967253851477634), (+1.3999598892749734, +0.34350126774328804), (+1.8703289548072206, +0.80182709655138418), (+1.6008408753292758, +0.12047001163078619), (+1.3038742099308367, +0.51566957727525475), (+1.5998257638738984, +0.12317959598151651), (+1.5775998608299453, +0.37922717364998848), (+1.5311159116659736, +0.38134986629133505E-1), (+1.8063123866023469, +0.17006118126716030), (+1.1503648501868637, +0.98743050248534581), (+1.2368469888647138, +0.19339009705333932), (+1.8549432591472976, +0.17177502288911239), (+1.6784898406292241, +0.23558866796540856), (+1.2985618010071427, +0.43675723308041370E-1), (+1.8262495989553540, +0.28915838149027739), (+1.7464938509045971, +0.86420048696399765), (+1.0828580606450162, +0.79314850905064638), (+1.2878218985924175, +0.50760787371339056), (+1.3652135680853710, +0.34941611651901872), (+1.6096183280531704, +0.73985782600295391), (+1.0397112087512044, +0.22214652248974376), (+1.3664704558701026, +0.52676333576451362), (+1.5579169646434463, +0.21869171510312979), (+1.3556693691696338, +0.58636988762748465), (+1.7263657353103061, +0.46188367714579093), (+1.4137573648907702, +0.64597019105087172), (+1.1715682602870245, +0.56713558134273534), (+1.4046853522979603, +0.67302999674887531), (+1.6928476410416327, +0.29634957333640888), (+1.7054989190948051, +0.41839718574018647), (+1.3566762076406573, +0.96168125645383906E-1), (+1.0366409342954093, +0.42070562899145270), (+1.9676428927171219, +0.92931867345647612), (+1.4352807985935616, +0.89587981676351702), (+1.7331992993206433, +0.35200149579801721)

432

433atad = getFFTI(getFFTF(data))

434atad

435(+1.4603213433534958, +0.92380647502438629), (+1.4380878513336710, +0.60332496468705155), (+1.7428218324234426, +0.90337800457328254E-1), (+1.0017741322239051, +0.31276625356940452), (+1.8369649305791098, +0.67431977736234916), (+1.6301227294326719, +0.78412398248425275), (+1.8717559029065727, +0.48470077941680439), (+1.8776178657805049, +0.74930780207322445), (+1.2253435375205415, +0.86411145470481954), (+1.7473521226957518, +0.90717712958516694), (+1.6591903331867226, +0.50553705842052565), (+1.3605257876691434, +0.86141994724283777), (+1.1497498817764118, +0.19351164609889115E-1), (+1.6963412544963259, +0.24341681854829283), (+1.3249873826785687, +0.96160721834571905), (+1.4651815443094887, +0.27937990075983699), (+1.7040420575216690, +0.58546496506681445), (+1.5778210979971750, +0.29167531592269053), (+1.7346687165397077, +0.55506995412883675), (+1.0614911420722937, +0.47715735749193600), (+1.5700058118075373, +0.38832159971185531), (+1.5252512023633060, +0.79371544489318824), (+1.3923391400305964, +0.52259786325689062), (+1.7084756582333418, +0.38116817696904159), (+1.2883437766482899, +0.15256981567994138), (+1.3431090634037119, +0.14532917940349127), (+1.7221116459724777, +0.15864863842459923), (+1.9060019909801684, +0.27750574733832545), (+1.6263780465740829, +0.41416100628539015), (+1.7098123038806332, +0.66699755351399781), (+1.0147884093154276, +0.17272202827819666), (+1.0872016272790805, +0.53871585970678115), (+1.4532447619729771, +0.22927642867299877), (+1.8254765773961430, +0.83576884951771291), (+1.1961345433999069, +0.95620733604229491), (+1.8941281819113052, +0.30235265802686839), (+1.5185206016653405, +0.94967123075961002), (+1.1997672373442505, +0.45742122208914582), (+1.4876461773790806, +0.46606565750397344), (+1.0958179536433736, +0.16899526729051151), (+1.0997418096698894, +0.34185080428177411), (+1.9998284832426005, +0.70379031304024120E-1), (+1.8219720017605741, +0.35286573420995937), (+1.4949567074327290, +0.10611785996665513), (+1.4233564629662969, +0.74973225460658910), (+1.9715289598813892, +0.62967253851477611), (+1.3999598892749732, +0.34350126774328776), (+1.8703289548072202, +0.80182709655138373), (+1.6008408753292755, +0.12047001163078616), (+1.3038742099308367, +0.51566957727525453), (+1.5998257638738984, +0.12317959598151615), (+1.5775998608299453, +0.37922717364998815), (+1.5311159116659734, +0.38134986629133227E-1), (+1.8063123866023467, +0.17006118126715999), (+1.1503648501868637, +0.98743050248534514), (+1.2368469888647136, +0.19339009705333934), (+1.8549432591472974, +0.17177502288911256), (+1.6784898406292239, +0.23558866796540850), (+1.2985618010071427, +0.43675723308041120E-1), (+1.8262495989553538, +0.28915838149027728), (+1.7464938509045969, +0.86420048696399732), (+1.0828580606450162, +0.79314850905064582), (+1.2878218985924172, +0.50760787371339022), (+1.3652135680853710, +0.34941611651901816), (+1.6096183280531702, +0.73985782600295391), (+1.0397112087512044, +0.22214652248974390), (+1.3664704558701024, +0.52676333576451340), (+1.5579169646434459, +0.21869171510312996), (+1.3556693691696338, +0.58636988762748465), (+1.7263657353103061, +0.46188367714579087), (+1.4137573648907702, +0.64597019105087150), (+1.1715682602870245, +0.56713558134273501), (+1.4046853522979599, +0.67302999674887543), (+1.6928476410416324, +0.29634957333640921), (+1.7054989190948049, +0.41839718574018642), (+1.3566762076406575, +0.96168125645383795E-1), (+1.0366409342954093, +0.42070562899145258), (+1.9676428927171219, +0.92931867345647579), (+1.4352807985935614, +0.89587981676351658), (+1.7331992993206431, +0.35200149579801665), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.44408920985006262E-15), (+0.22204460492503131E-15, +0.13877787807814457E-15), (+0.77715611723760958E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.0000000000000000, -0.13877787807814457E-16), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.19428902930940239E-15), (+0.33306690738754696E-15, -0.47184478546569153E-15), (+0.0000000000000000, -0.55511151231257827E-16), (+0.44408920985006262E-15, -0.38857805861880479E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.55511151231257827E-15, -0.55511151231257827E-15), (-0.44408920985006262E-15, +0.13877787807814457E-15), (-0.11102230246251565E-15, +0.0000000000000000), (-0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, +0.55511151231257827E-16), (-0.66613381477509392E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.27755575615628914E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (-0.22204460492503131E-15, -0.16653345369377348E-15), (+0.0000000000000000, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (-0.33306690738754696E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (-0.22204460492503131E-15, +0.19428902930940239E-15), (-0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.30531133177191805E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.38857805861880479E-15), (+0.55511151231257827E-15, +0.36082248300317588E-15), (+0.11102230246251565E-15, +0.61062266354383610E-15), (+0.55511151231257827E-15, +0.41633363423443370E-15), (+0.0000000000000000, +0.15265566588595902E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.86736173798840355E-16), (+0.44408920985006262E-15, +0.19428902930940239E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.49960036108132044E-15), (-0.44408920985006262E-15, +0.88817841970012523E-15), (+0.55511151231257827E-15, +0.80491169285323849E-15)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, atad(1:size(data)), reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+67

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.50199798964974955857937700308003959, +0.154423217096920351951962234659972739), (+1.85341727304973658723021627189652736, +0.907841860444965540460008554870656571), (+1.10975907487024359430919840042218407, +0.692630073854766726446251133631423891), (+1.68625055203439425172035109036255282, +0.628498984028870724815103741561068919), (+1.41566010556990368351347985268333080, +0.378796523667161999323393788359411544), (+1.61233379169704758476229848645728844, +0.186151420043921113223321165902579997), (+1.59758175003323131324953557566889634, +0.545580898275056423288420693180971137), (+1.08886727029954019273221547546454310, +0.564503231827099587308622195362499339), (+1.72524558254970693637350528386929637, +0.800238915343369613866321483685317176E-2), (+1.57056819931662189616602957992368627, +0.968458975814765006744450011871697424), (+1.52395370674121866305896505940294551, +0.492442587210704368277941806806775661), (+1.38835643160524685783599508909755460, +0.175839448720219150890019580758876590), (+1.85030549640321959286583532011531303, +0.642267217183592527802469957868497980), (+1.43934144301761929957643625210495046, +0.717299641812989662788162851896355844), (+1.33643264538130540517559308476121625, +0.556097294398480805516432252354149702), (+1.16356475509823532441690697271214021, +0.446284829053228537706931495541610552), (+1.75891763195982219396619620688320377, +0.566187322277065607864069536933195173), (+1.98976754149891697301867803704138866, +0.190794839715495088871274416338188666), (+1.66560342421120721079686448880179959, +0.164834447084251393468265829814751353), (+1.57555486936093783153339496469347214, +0.662126244991581481223290735175802602), (+1.78330699420039712250690577754412717, +0.511611230649422929941025474754835162), (+1.86143222529985624906271671599070762, +0.522731534359693777654169789644475858), (+1.04830479318976117626441925503567511, +0.720459921365202592039315563613479587), (+1.01935312732471442439792926789407811, +0.518773571495498577538327430398260800), (+1.46340948080979675964141382311983496, +0.296460302705773872514812457430341211), (+1.71394823902532028056103165110729496, +0.587030290199607408983770336631507808), (+1.14682898108180127815432319623470450, +0.857572296232329929202458775935306461), (+1.60428749319952434617411600103311452, +0.751211863702855936716572464978099446), (+1.69862845222083711602422851409995591, +0.689298448851525220949855651032936871), (+1.77178220734704984321496583529526481, +0.784383121862596615392281926763657671E-1), (+1.77742171511093609740865587750323131, +0.183537858091080485109403144087314336), (+1.27813179583621256661485023468831599, +0.106254495526132075654002620323586100), (+1.74924173223412174928439161496150698, +0.188635992545088618354013020349586307E-1), (+1.24408312196208398785874759384986683, +0.339474750601059692614102847608021723), (+1.02105024709160283212353217775245349, +0.783442343578506461357263143576157672), (+1.80740450709499270623517098175394580, +0.333945419004855119832905414065588354), (+1.07992126618096830366787788208127358, +0.500766065533628359614139448223395941), (+1.94953408202072907514181166995894994, +0.604607378031043861728858166369731210), (+1.44795452155995651784514735141682762, +0.245215132161803894448388678775822075), (+1.55850774510991778861724452413628241, +0.634129629632976516589080956766867532), (+1.65843808157180250693704573221492451, +0.217611128778916632158829280652676899), (+1.69391761026981216032309287119878691, +0.232283049437601487264982421697223397), (+1.49772499001907549348250480615301619, +0.149974833752143420619804468412329834), (+1.39695497527543029104624618898457997, +0.636153609793407410005643401776659613), (+1.87474862746102744901941814333924768, +0.499784897444223215757227395920710239), (+1.77244831776169723452658802380567020, +0.972706702945422820334133482005348118), (+1.78215828802230521015683847750332481, +0.632228463441618012320588470200890404E-1), (+1.99446660442661309133481849253332718, +0.496032269624315905201752164399215869), (+1.90729594022075999337447569344089525, +0.565366226206733004709601461128513393), (+1.45933035820070401430140899776121815, +0.463412355209813103455741120373550066), (+1.41208325066213742340171020563054160, +0.315220096328330779253042784310037224), (+1.14737358387249900410182656578196153, +0.739739409301926972141943752132227808), (+1.83137619010881612151566817548721283, +0.406245383665883361044871592798463615E-1), (+1.31437735459640261772982488540251659, +0.864835498223364120642652037278364922), (+1.58228714693383105093004939405161115, +0.630051899332864113440940953762544246), (+1.35305280744456550892163274607464266, +0.125323924820187891871121222783887446), (+1.86037037416003352600326068016377839, +0.776651176772490308766593088695854939), (+1.30808600614708364117890067877721825, +0.729889530318958176260488732511873481), (+1.72735322969001604558691902774662415, +0.251770525490719897712709862489618991), (+1.46675428675482725275660263528971629, +0.199966335078769500468486949703294738E-1), (+1.17054891898361896653192127829910621, +0.460314857884418760577575807218077766), (+1.15436526501641116226046046897712207, +0.473705819042111873668582142820302447), (+1.46636675648948468178482313673351383, +0.240522670438917579521220642960350557), (+1.66711197405411865735332122777377622, +0.717454128395810862716796672026207346), (+1.35941036334174046173569793687222547, +0.114122055920959924824360099980627862), (+1.89908797064345667468069878127729056, +0.365307825526920647108798573250253388), (+1.11026824124240803835386786345120492, +0.776132964136576439371315972423859351)

449

450atad = getFFTI(getFFTF(data))

451atad

452(+1.50199798964974955857937700308003939, +0.154423217096920351951962234659972835), (+1.85341727304973658723021627189652775, +0.907841860444965540460008554870656378), (+1.10975907487024359430919840042218426, +0.692630073854766726446251133631423988), (+1.68625055203439425172035109036255339, +0.628498984028870724815103741561068631), (+1.41566010556990368351347985268333080, +0.378796523667161999323393788359411352), (+1.61233379169704758476229848645728863, +0.186151420043921113223321165902579540), (+1.59758175003323131324953557566889596, +0.545580898275056423288420693180971041), (+1.08886727029954019273221547546454310, +0.564503231827099587308622195362498954), (+1.72524558254970693637350528386929675, +0.800238915343369613866321483685338843E-2), (+1.57056819931662189616602957992368704, +0.968458975814765006744450011871697616), (+1.52395370674121866305896505940294570, +0.492442587210704368277941806806775950), (+1.38835643160524685783599508909755498, +0.175839448720219150890019580758876638), (+1.85030549640321959286583532011531322, +0.642267217183592527802469957868498076), (+1.43934144301761929957643625210495085, +0.717299641812989662788162851896355941), (+1.33643264538130540517559308476121664, +0.556097294398480805516432252354149991), (+1.16356475509823532441690697271214021, +0.446284829053228537706931495541610456), (+1.75891763195982219396619620688320396, +0.566187322277065607864069536933195077), (+1.98976754149891697301867803704138923, +0.190794839715495088871274416338188257), (+1.66560342421120721079686448880179978, +0.164834447084251393468265829814751305), (+1.57555486936093783153339496469347272, +0.662126244991581481223290735175802795), (+1.78330699420039712250690577754412736, +0.511611230649422929941025474754835065), (+1.86143222529985624906271671599070801, +0.522731534359693777654169789644475665), (+1.04830479318976117626441925503567511, +0.720459921365202592039315563613479587), (+1.01935312732471442439792926789407791, +0.518773571495498577538327430398260800), (+1.46340948080979675964141382311983534, +0.296460302705773872514812457430341356), (+1.71394823902532028056103165110729554, +0.587030290199607408983770336631508000), (+1.14682898108180127815432319623470450, +0.857572296232329929202458775935306750), (+1.60428749319952434617411600103311490, +0.751211863702855936716572464978099928), (+1.69862845222083711602422851409995591, +0.689298448851525220949855651032936871), (+1.77178220734704984321496583529526539, +0.784383121862596615392281926763657551E-1), (+1.77742171511093609740865587750323150, +0.183537858091080485109403144087314480), (+1.27813179583621256661485023468831599, +0.106254495526132075654002620323585895), (+1.74924173223412174928439161496150736, +0.188635992545088618354013020349587090E-1), (+1.24408312196208398785874759384986702, +0.339474750601059692614102847608021723), (+1.02105024709160283212353217775245349, +0.783442343578506461357263143576157865), (+1.80740450709499270623517098175394657, +0.333945419004855119832905414065588546), (+1.07992126618096830366787788208127377, +0.500766065533628359614139448223396133), (+1.94953408202072907514181166995895052, +0.604607378031043861728858166369731210), (+1.44795452155995651784514735141682781, +0.245215132161803894448388678775821930), (+1.55850774510991778861724452413628241, +0.634129629632976516589080956766867340), (+1.65843808157180250693704573221492509, +0.217611128778916632158829280652677188), (+1.69391761026981216032309287119878749, +0.232283049437601487264982421697223830), (+1.49772499001907549348250480615301638, +0.149974833752143420619804468412330075), (+1.39695497527543029104624618898458016, +0.636153609793407410005643401776659806), (+1.87474862746102744901941814333924768, +0.499784897444223215757227395920710673), (+1.77244831776169723452658802380567097, +0.972706702945422820334133482005348792), (+1.78215828802230521015683847750332538, +0.632228463441618012320588470200890766E-1), (+1.99446660442661309133481849253332775, +0.496032269624315905201752164399216158), (+1.90729594022075999337447569344089544, +0.565366226206733004709601461128513489), (+1.45933035820070401430140899776121892, +0.463412355209813103455741120373550258), (+1.41208325066213742340171020563054160, +0.315220096328330779253042784310037320), (+1.14737358387249900410182656578196172, +0.739739409301926972141943752132228097), (+1.83137619010881612151566817548721321, +0.406245383665883361044871592798464337E-1), (+1.31437735459640261772982488540251697, +0.864835498223364120642652037278365307), (+1.58228714693383105093004939405161153, +0.630051899332864113440940953762544246), (+1.35305280744456550892163274607464266, +0.125323924820187891871121222783887422), (+1.86037037416003352600326068016377877, +0.776651176772490308766593088695855228), (+1.30808600614708364117890067877721864, +0.729889530318958176260488732511874155), (+1.72735322969001604558691902774662415, +0.251770525490719897712709862489619280), (+1.46675428675482725275660263528971648, +0.199966335078769500468486949703297627E-1), (+1.17054891898361896653192127829910621, +0.460314857884418760577575807218078055), (+1.15436526501641116226046046897712207, +0.473705819042111873668582142820302832), (+1.46636675648948468178482313673351421, +0.240522670438917579521220642960350846), (+1.66711197405411865735332122777377641, +0.717454128395810862716796672026207827), (+1.35941036334174046173569793687222527, +0.114122055920959924824360099980627862), (+1.89908797064345667468069878127729095, +0.365307825526920647108798573250253822), (+1.11026824124240803835386786345120492, +0.776132964136576439371315972423859254), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, +0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, +0.409260113182287618774395312799297055E-33), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.529630734706489859590393934210855013E-33), (+0.962964972193617926527988971292463659E-34, -0.264815367353244929795196967105427506E-33), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.361111864572606722447995864234673872E-34), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, -0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.132407683676622464897598483552713753E-33), (-0.192592994438723585305597794258492732E-33, -0.601853107621011204079993107057789787E-34), (-0.288889491658085377958396691387739098E-33, -0.842594350669415685711990349880905702E-34), (-0.481482486096808963263994485646231830E-33, -0.556714124549435363773993624028455553E-34), (-0.385185988877447170611195588516985464E-33, -0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.264815367353244929795196967105427506E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.842594350669415685711990349880905702E-34), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.529630734706489859590393934210855013E-33), (-0.385185988877447170611195588516985464E-33, -0.228704180895984257550397380681960119E-33), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.433334237487128066937595037081608647E-33), (-0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.601853107621011204079993107057789787E-34), (-0.674075480535532548569592279904724561E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.481482486096808963263994485646231830E-33, -0.240741243048404481631997242823115915E-34), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, -0.625927231925851652243192831340101379E-33), (-0.962964972193617926527988971292463659E-34, -0.216667118743564033468797518540804323E-33), (-0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.553704859011330307753593658493166604E-33), (-0.385185988877447170611195588516985464E-33, -0.180555932286303361223997932117336936E-33), (-0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, atad(1:size(data)), reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+66

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.06697488, +1.85767841, +1.96318626, +1.52818322, +1.08060336, +1.42569101, +1.45611334, +1.43488693, +1.46056914, +1.86417806, +1.69837642, +1.06554508, +1.44855917, +1.67301536, +1.10334897, +1.54864359, +1.06782293, +1.03972125, +1.48851204, +1.57617462, +1.41679239, +1.07747221, +1.03132343, +1.38029337, +1.70841408, +1.02911413, +1.14262211, +1.46460593, +1.70832586, +1.68693316, +1.76846206, +1.68686128, +1.80186868, +1.85791171, +1.45875764, +1.36445904, +1.46297419, +1.46076667, +1.17990327, +1.04858160, +1.85847187, +1.21721470, +1.42006624, +1.84617829, +1.24553084, +1.01140571, +1.45942616, +1.42142963, +1.61851597, +1.45613647, +1.35018313, +1.18012404, +1.51529980, +1.15502262, +1.45471025, +1.89027429, +1.56920195, +1.59487998, +1.35792208, +1.01958799, +1.03989077, +1.83832145, +1.56134903, +1.90104580, +1.80253112, +1.15680325

466

467atad = getFFTI(getFFTF(data))

468atad

469+1.06697488, +1.85767841, +1.96318603, +1.52818322, +1.08060312, +1.42569089, +1.45611310, +1.43488646, +1.46056914, +1.86417818, +1.69837618, +1.06554496, +1.44855917, +1.67301524, +1.10334873, +1.54864335, +1.06782281, +1.03972125, +1.48851180, +1.57617450, +1.41679215, +1.07747209, +1.03132319, +1.38029313, +1.70841396, +1.02911437, +1.14262199, +1.46460581, +1.70832562, +1.68693304, +1.76846194, +1.68686104, +1.80186868, +1.85791159, +1.45875788, +1.36445856, +1.46297431, +1.46076608, +1.17990327, +1.04858112, +1.85847187, +1.21721458, +1.42006612, +1.84617805, +1.24553084, +1.01140547, +1.45942616, +1.42142928, +1.61851573, +1.45613647, +1.35018277, +1.18012357, +1.51529968, +1.15502238, +1.45471001, +1.89027357, +1.56920123, +1.59487987, +1.35792172, +1.01958776, +1.03989077, +1.83832121, +1.56134903, +1.90104556, +1.80253100, +1.15680337, +0.238418579E-6, -0.178813934E-6, +0.357627869E-6, +0.298023224E-6, +0.357627869E-6, +0.298023224E-6, +0.00000000, +0.119209290E-6, +0.596046448E-7, -0.119209290E-6, -0.119209290E-6, +0.119209290E-6, +0.298023224E-6, +0.178813934E-6, +0.357627869E-6, +0.596046448E-7, +0.298023224E-6, +0.596046448E-7, +0.178813934E-6, +0.119209290E-6, +0.178813934E-6, +0.596046448E-7, +0.00000000, -0.119209290E-6, +0.596046448E-7, -0.178813934E-6, +0.178813934E-6, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, -0.119209290E-6, +0.298023224E-6, +0.596046448E-7, +0.357627869E-6, -0.596046448E-7, +0.655651093E-6, -0.596046448E-7, +0.298023224E-6, +0.00000000, +0.298023224E-6, -0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.238418579E-6, +0.178813934E-6, +0.238418579E-6, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, +0.417232513E-6, +0.119209290E-6, +0.298023224E-6, +0.298023224E-6, +0.417232513E-6, +0.536441803E-6, +0.238418579E-6, +0.119209290E-6, +0.178813934E-6, +0.00000000, +0.238418579E-6, +0.119209290E-6, +0.238418579E-6

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, atad(1:size(data)), reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+60

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.0561346918868906, +1.3748026224642926, +1.6611527095343641, +1.7181807689456647, +1.8818948533535231, +1.6900440933915746, +1.0739431554373513, +1.2343878719842309, +1.7488465317036550, +1.4469239873423869, +1.2528976564969456, +1.4134926064550506, +1.4450551235155673, +1.9493903536952826, +1.9841429798297223, +1.0348138795665045, +1.5054104609964247, +1.6557452605821306, +1.8694569245569150, +1.6418248644562623, +1.7326126819285244, +1.6646680551530948, +1.1155829491927203, +1.5423963151237694, +1.7364901173022680, +1.8952583591957404, +1.3691702732600399, +1.6775584522740949, +1.2962309758668860, +1.5157408129968508, +1.5108617061257184, +1.6022559146343571, +1.7946780755162535, +1.5917187535474961, +1.2353257379560374, +1.6632979640082026, +1.3187655265789209, +1.8867531862241123, +1.1203033609510249, +1.3011516764472395, +1.7629048612936331, +1.7474446390095424, +1.4483379277138395, +1.2674527074885042, +1.4261286049950908, +1.6477374055518075, +1.6459169111221246, +1.5034861215739452, +1.2258275044508420, +1.6920755215673657, +1.6102256311593381, +1.4823469141874861, +1.7916156432451440, +1.1070775589922355, +1.1060613799720151, +1.5149357875026579, +1.8379709398373056, +1.7075007363708803, +1.3307818087654542, +1.0825441847617563

483

484atad = getFFTI(getFFTF(data))

485atad

486+1.0561346918868906, +1.3748026224642926, +1.6611527095343641, +1.7181807689456650, +1.8818948533535229, +1.6900440933915750, +1.0739431554373511, +1.2343878719842312, +1.7488465317036550, +1.4469239873423869, +1.2528976564969454, +1.4134926064550508, +1.4450551235155673, +1.9493903536952824, +1.9841429798297217, +1.0348138795665049, +1.5054104609964245, +1.6557452605821306, +1.8694569245569150, +1.6418248644562621, +1.7326126819285244, +1.6646680551530946, +1.1155829491927203, +1.5423963151237694, +1.7364901173022675, +1.8952583591957401, +1.3691702732600399, +1.6775584522740947, +1.2962309758668855, +1.5157408129968504, +1.5108617061257179, +1.6022559146343567, +1.7946780755162535, +1.5917187535474959, +1.2353257379560372, +1.6632979640082024, +1.3187655265789209, +1.8867531862241125, +1.1203033609510247, +1.3011516764472397, +1.7629048612936329, +1.7474446390095424, +1.4483379277138393, +1.2674527074885047, +1.4261286049950910, +1.6477374055518073, +1.6459169111221246, +1.5034861215739455, +1.2258275044508418, +1.6920755215673657, +1.6102256311593379, +1.4823469141874857, +1.7916156432451440, +1.1070775589922353, +1.1060613799720151, +1.5149357875026577, +1.8379709398373054, +1.7075007363708801, +1.3307818087654542, +1.0825441847617563, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, +0.99920072216264089E-15

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, atad(1:size(data)), reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+61

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.76314710648383331258362839512574729, +1.45203085661061453165288287670133578, +1.94721024612326842634974831108192116, +1.77153242649973932150825315571392131, +1.48319287890767552595939518732644948, +1.81144554234383960882359999831778614, +1.91069075092683057796302150912050468, +1.53606877814661951757641133323612368, +1.19881127604632988692104121365466968, +1.73149983875976951042206910430111076, +1.22646465550705808414327918524022046, +1.76262122795571679518720743467038306, +1.45367748253947675648532763324674762, +1.58439255654305388197147806168580682, +1.61488469949474714168359270998275423, +1.96528121046998884549342434117204329, +1.61197933391592468886150303712374430, +1.56147179034081280403219747609865654, +1.54686643429601949488958896737453409, +1.91806516207140868882682609948185260, +1.67390192285201877468210286559168150, +1.30768330550571986658160471986419659, +1.93302878338035018706843664359566243, +1.35111257850668990168082383951467168, +1.24854132019370283581460528173695213, +1.00220914905056158732567480645669595, +1.18782188323218008614465640717328776, +1.38869175063174147604111431165561243, +1.73779354377859695411200203278922101, +1.28114109691134043094378391138721077, +1.00547380167130487549240844088861065, +1.16595148412067052510141324752982256, +1.36940275922914342482865128716912252, +1.63715516684905442604734045885526800, +1.43423273994571134881440235086301611, +1.92170930343769342527309426199728386, +1.27192678339702945491342127202002549, +1.79698413632638573632569173601681436, +1.07571021817177232732458558013955959, +1.22719704243924291394992027753285467, +1.88619185565274575799659177727119700, +1.27457712175662336565343881695697272, +1.60188541246480256530028042688594843, +1.87192931646909319929895546448511747, +1.67390661512699395720168206512584581, +1.60906693599285319705600041530327212, +1.11883311806045907319115433578166857, +1.74635676890265480661382668250750976, +1.12597672209643382486168453677941781, +1.24392811308473494337740000462396877, +1.82386221785717255060819496997608319, +1.51175085096585879022281409873988800, +1.57197960523236594083622383507604725, +1.72343590828501684397918986990775602, +1.01251091463926862203185518537727016, +1.52491811275924389896306812325813928, +1.56186196187746600243238673894621900, +1.44677404389039290199416231650080131, +1.18324857742983245802074498888620261, +1.08880450900694631966215642679530191, +1.87207401459371620971119014617281051

500

501atad = getFFTI(getFFTF(data))

502atad

503+1.76314710648383331258362839512574748, +1.45203085661061453165288287670133597, +1.94721024612326842634974831108192059, +1.77153242649973932150825315571392111, +1.48319287890767552595939518732644948, +1.81144554234383960882359999831778633, +1.91069075092683057796302150912050468, +1.53606877814661951757641133323612368, +1.19881127604632988692104121365466968, +1.73149983875976951042206910430111076, +1.22646465550705808414327918524022007, +1.76262122795571679518720743467038306, +1.45367748253947675648532763324674762, +1.58439255654305388197147806168580701, +1.61488469949474714168359270998275461, +1.96528121046998884549342434117204367, +1.61197933391592468886150303712374430, +1.56147179034081280403219747609865654, +1.54686643429601949488958896737453370, +1.91806516207140868882682609948185221, +1.67390192285201877468210286559168189, +1.30768330550571986658160471986419659, +1.93302878338035018706843664359566243, +1.35111257850668990168082383951467187, +1.24854132019370283581460528173695213, +1.00220914905056158732567480645669576, +1.18782188323218008614465640717328757, +1.38869175063174147604111431165561224, +1.73779354377859695411200203278922062, +1.28114109691134043094378391138721077, +1.00547380167130487549240844088860988, +1.16595148412067052510141324752982237, +1.36940275922914342482865128716912272, +1.63715516684905442604734045885526819, +1.43423273994571134881440235086301592, +1.92170930343769342527309426199728366, +1.27192678339702945491342127202002530, +1.79698413632638573632569173601681475, +1.07571021817177232732458558013955940, +1.22719704243924291394992027753285467, +1.88619185565274575799659177727119700, +1.27457712175662336565343881695697272, +1.60188541246480256530028042688594823, +1.87192931646909319929895546448511767, +1.67390661512699395720168206512584581, +1.60906693599285319705600041530327231, +1.11883311806045907319115433578166877, +1.74635676890265480661382668250751034, +1.12597672209643382486168453677941762, +1.24392811308473494337740000462396877, +1.82386221785717255060819496997608261, +1.51175085096585879022281409873988781, +1.57197960523236594083622383507604725, +1.72343590828501684397918986990775602, +1.01251091463926862203185518537726997, +1.52491811275924389896306812325813908, +1.56186196187746600243238673894621900, +1.44677404389039290199416231650080131, +1.18324857742983245802074498888620242, +1.08880450900694631966215642679530191, +1.87207401459371620971119014617281051, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, atad(1:size(data)), reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

510

511

Test:: test_pm_fftnr

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 250 of file pm_fftnr.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftnr.F90